[Anas Mahmoud]

تفضل الطلب الاول :

كود :

   Private Sub DataGridView1_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles DataGridView1.RowPrePaint
       If e.IsLastVisibleRow Then Return

       Dim dgv As DataGridView = sender
       Dim row = dgv.Rows(e.RowIndex)
       Dim expDate As Date = row.Cells("ExpDate").Value

       Select Case expDate
           Case Is <= Now.Date
               row.DefaultCellStyle.BackColor = Color.LightPink

           Case Is < Now.Date.AddDays(7)
               row.DefaultCellStyle.BackColor = Color.Yellow

       End Select
   End Sub

اما الطلب الثاني فاجده بسيطا ، اي كانت طريقتك لجلب البيانات من قاعدة البيانات استخدمها في كل زر مع تغيير اسم الجدول

مثلا قم بتعريف دالة تجلب جميع بيانات الجدول باسم الجدول :

كود :

   Function GetDateFromTable(tableName As String) As DataTable
       Dim commandText As String = String.Format("Select * from {0}", tableName)
       Dim dt As New DataTable
       Using connection As New SqlClient.SqlConnection(connectionString)
           Using adapter As New SqlClient.SqlDataAdapter(commandText, connection)
               adapter.Fill(dt)
           End Using
       End Using
       Return dt
   End Function

الان في حد الضغط على كل زر استدعي الدالة مع اسناد قيمتها الى DataSource :

كود :

       DataGridView1.DataSource = GetDateFromTable("Products")

هكذا وفي الزر الاخر مثلا :

كود :

DataGridView1.DataSource = GetDateFromTable("Accounts")