06-09-20, 11:21 PM
طيب عليك وضع كود تغيير لون الاصناف في اجراء 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()
