[Anas Mahmoud]

طيب عليك وضع كود تغيير لون الاصناف في اجراء Sub واستدعائه بعد ملئ الداتا جريد فيو وليس في حدث form.load
هكذا مثلا :

كود :

Sub UpdateColors()
Dim a As Date = Date.Today
       For i As Integer = 0 To DataGridView.RowCount - 1
           If DataGridView(1, i).Value <= a Then
               DataGridView.Rows(i).DefaultCellStyle.BackColor = Color.Orange
           End If
       Next
       Dim b As Date = Date.Today.Date.AddDays(31)
       For i As Integer = 0 To DataGridView.RowCount - 1
           If DataGridView(1, i).Value > a And DataGridView(1, i).Value <= b Then
               DataGridView.Rows(i).DefaultCellStyle.BackColor = Color.Green
           End If
       Next
End Sub

وبعد كل عملية ملئ للداتا جريد فيو تستدعي هذا الاجراء :

كود :

UpdateColors()