Public Class EX_1
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'هذا الكودلادخال البيانات في الدتا قريد فيو
DGV1.Rows.Add(1000, "مكاوي", "", "", "", "", "", "", "نعم", "")
DGV1.Rows.Add(1001, "مكاوي1", "قطعة", 120, 20, 10, 10, "2017/2/21", "لا", 1000)
DGV1.Rows.Add(1002, "مكاوي2", "قطعة", 170, 20, 10, 10, "2017/2/21", "لا", 1000)
DGV1.Rows.Add(2000, "استشوار", "", "", "", "", "", "", "نعم", "")
DGV1.Rows.Add(2001, "استشوار1", "قطعة", 220, 40, 40, 40, "2017/3/26", "لا", 2000)
DGV1.Rows.Add(2002, "استشوار2", "قطعة", 370, 60, 60, 60, "2017/3/26", "لا", 2000)
'هذا الكود لتلوين فقط
For z As Integer = 0 To DGV1.Rows.Count - 2
If DGV1.Rows(z).Cells(8).Value = "نعم" Then
DGV1.Rows(z).DefaultCellStyle.BackColor = Color.Yellow
End If
Next
'هذا الكود الاساسي للترصيد
Dim num(2) As Integer
num(1) = 1000
num(2) = -1
For I As Integer = 0 To DGV1.Rows.Count - 2
If DGV1.Rows(I).Cells(8).Value = "نعم" Then
For x As Integer = 0 To DGV1.Rows.Count - 2
If Val(DGV1.Rows(x).Cells(0).Value) >= num(1) And Val(DGV1.Rows(x).Cells(0).Value) < num(1) + 1000 Then
num(0) += Val(DGV1.Rows(x).Cells(3).Value)
num(2) += 1
End If
Next
num(1) += 1000
DGV1.Rows(I).Cells(3).Value = num(0)
DGV1.Rows(I).Cells(9).Value = num(2)
num(0) = 0
num(2) = -1
End If
Next
End Sub
End Class