[Osama_NY]

(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 لانه انا معرفه بالعربي في الداتا قريد فيو