[محمود صالح]

اتفضل اخي 
وكما قلت لك سابقا انها طريقة بدائية و عقيمة مع البيانات الكثيرة وستشعر بالثقل عند ذلك

صورة
   

و ده الكود المستخدم

PHP كود :

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