22-06-20, 09:56 PM
السلام عليكم
عندي مشكل في كود انتهاء تاريخ الصلاحية او الدفع
مع العلم اني اضع الكود التالي ويعمل 3 ايام يقوم بتنبيه و التلوين
For Each Rw As DataGridViewRow In dgv.Rows
Rw.Cells("Remaindays").Value = DateDiff(DateInterval.Day, Rw.Cells("PcDate").Value, Rw.Cells("DateExpr").Value)
Next
'"""""""""""""""""""""""""""""""""""""""""""
For i As Integer = 0 To dgv.Rows.Count - 1
For ColNo As Integer = 1 To 7
If dgv.Rows(i).Cells(6).Value <= 3 Then
dgv.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
Next
عند وضع تاريخ عدم الصلاحية في السطر الاول يعمل الكود بشكل جيد عند وضع الكود منتهي يقوم بتلوين الجدول باكمله سواء الاسطر المنتهية او غير المنتهية
ارجوا المساعدة والنصح
جزاكم الله خيرا
عندي مشكل في كود انتهاء تاريخ الصلاحية او الدفع
مع العلم اني اضع الكود التالي ويعمل 3 ايام يقوم بتنبيه و التلوين
For Each Rw As DataGridViewRow In dgv.Rows
Rw.Cells("Remaindays").Value = DateDiff(DateInterval.Day, Rw.Cells("PcDate").Value, Rw.Cells("DateExpr").Value)
Next
'"""""""""""""""""""""""""""""""""""""""""""
For i As Integer = 0 To dgv.Rows.Count - 1
For ColNo As Integer = 1 To 7
If dgv.Rows(i).Cells(6).Value <= 3 Then
dgv.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
Next
عند وضع تاريخ عدم الصلاحية في السطر الاول يعمل الكود بشكل جيد عند وضع الكود منتهي يقوم بتلوين الجدول باكمله سواء الاسطر المنتهية او غير المنتهية
ارجوا المساعدة والنصح
جزاكم الله خيرا