(14-11-18, 07:20 PM)nashnoush كتب :

السلام عليكم و رحمة الله و بركاتة 

هدا هو الكود بعد بحث و تجارب ممكن يكون في طرق ثانية بس هدا الدي قدرت اعمله ممكن حد يكون يدور علية زي للاستفادة


 Dim sum As Integer = 0
        Dim a1 As String
        Dim a2 As String
        For b As Integer = 0 To AsdDataSet1._end.Rows.Count - 1

            a2 = AsdDataSet1._end.Rows(b).Item("المصرف").ToString()

            For i As Integer = 0 To Form1.AsdDataSet.sheet1.Rows.Count - 1

                a1 = Form1.AsdDataSet.sheet1.Rows(i).Item("المصرف").ToString()


                If a1 = a2 Then
                    sum = sum + Form1.AsdDataSet.sheet1.Rows(i).Item("المرتب")

                End If
            Next
            AsdDataSet1._end.Rows(b).Item("القيمة") = sum
            sum = 0
        Next

شكرا