04-12-20, 12:26 PM
تفضل الطلب الاول :
اما الطلب الثاني فاجده بسيطا ، اي كانت طريقتك لجلب البيانات من قاعدة البيانات استخدمها في كل زر مع تغيير اسم الجدول
مثلا قم بتعريف دالة تجلب جميع بيانات الجدول باسم الجدول :
الان في حد الضغط على كل زر استدعي الدالة مع اسناد قيمتها الى DataSource :
هكذا وفي الزر الاخر مثلا :
كود :
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")
