(04-12-20, 12:26 PM)Anas Mahmoudnd 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

(04-12-20, 12:26 PM)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

(04-12-20, 12:26 PM)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

ماذا اكتب بدل ExpDate لانه انا معرفه بالعربي في الداتا قريد فيو 

(07-12-20, 04:54 PM)Anas Mahmoud كتب : اجل عرف متغير عام للبرنامج connectionString وضع به نص الاتصال
بدلا من ExpDate  اكتب اسم ال column او العمود في الداتا جريد فيو الذي يحتوي تاريخ الصلاحية
ان لم تعمل ارسل مثال نعدل عليه

(07-12-20, 05:16 PM)Anas Mahmoud كتب : لا اقصد اسم العمود في الداتا بيز اريد اسم العمود في الداتا جريد فيو لان هذا الكود يعمل على مستوى الداتا جريد فيو فقط ،

ببساطة الكود يختبر محتوى الصف في الجريد فيو ان وجد صلاحيته انتهت يقوم بتلوينه

اذا كنت لا تعرف اسم العمود في الداتا جريد فيو يمكنك استخدام ترتيبها بين الاعمدة بدلا من الاسم هكذا مثلا اذا كانت في العمود الثالث :

كود :

      Dim expDate As Date = row.Cells(2).Value

(07-12-20, 05:16 PM)Anas Mahmoud كتب : لا اقصد اسم العمود في الداتا بيز اريد اسم العمود في الداتا جريد فيو لان هذا الكود يعمل على مستوى الداتا جريد فيو فقط ،

ببساطة الكود يختبر محتوى الصف في الجريد فيو ان وجد صلاحيته انتهت يقوم بتلوينه

اذا كنت لا تعرف اسم العمود في الداتا جريد فيو يمكنك استخدام ترتيبها بين الاعمدة بدلا من الاسم هكذا مثلا اذا كانت في العمود الثالث :

كود :

      Dim expDate As Date = row.Cells(2).Value

(07-12-20, 05:16 PM)Anas Mahmoud كتب : لا اقصد اسم العمود في الداتا بيز اريد اسم العمود في الداتا جريد فيو لان هذا الكود يعمل على مستوى الداتا جريد فيو فقط ،

ببساطة الكود يختبر محتوى الصف في الجريد فيو ان وجد صلاحيته انتهت يقوم بتلوينه

اذا كنت لا تعرف اسم العمود في الداتا جريد فيو يمكنك استخدام ترتيبها بين الاعمدة بدلا من الاسم هكذا مثلا اذا كانت في العمود الثالث :

كود :

      Dim expDate As Date = row.Cells(2).Value

(07-12-20, 06:08 PM)Anas Mahmoud كتب :
صحيح اخي الكريم