منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ارجو من جميع خبراءواعضاء المنتدى المساعدة بعملية جمع قيم من DataGridView

ارجو من جميع خبراءواعضاء المنتدى المساعدة بعملية جمع قيم من DataGridView1 ولنفرض الكود " 2 " يوجد لديه 3 قيم في الحقل number
50+50+50= 150 المطلوب عند الضغط على الذر احسب يتم جمع الارقام الخاصة بالكود رقم " 2 " من DataGridView1 وعرض االكود و المجموع الكلي للرقم "2" في DataGridView2 تم ارفاق المثال الموجود في البرنامج للتعديل عليه ومشاهدته ارجو منكم المساعدة وجزاكم الله كل خير .

النتيجة المطلوبه للمخرجات كالتالي ويتم عرضها بال DataGridView2 :

2 ( 50+50+50 ) = 150

1( 10+10) = 20

ارجو منكم المساعدة اخواني وجزاكم الله ألف خير

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

اخي الكريم إن اردت من نفس اداة Datagridview فهو نفس طريقة المثال هنا

صحيح يا سعود
مثالك الاقرب لطلبه تقريبا
محمد يجب ان تفرق بين النص string
والعدد integer or double
لاحظت انك مخلي code
number
نصوص
وهذا خطأ بالنسبة بالنسبة في حال الجمع او الطرح او اي عملية رياضية
لذلك غيرت نوع الحقل number الى رقم حتى استطيع ان اعمل تجميع من جملة الاستعلام
Summary & grouping
بالتوفيق مجدداً

PHP كود :

Private Function gsum(ByVal h As String) As Integer
        Dim p As Integer = 0
        For a = 0 To d1.Rows.Count - 1
            Dim itm As String = d1.Rows(a).Cells(0).Value.ToString
            If itm = h Then
                Dim itm2 As String = d1.Rows(a).Cells(1).Value.ToString
                p += itm2
            End If
        Next
        Return p
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim lst As New List(Of Integer)
        lst.Clear()
        For a = 0 To d1.Rows.Count - 1
            Dim itm As String = d1.Rows(a).Cells(0).Value.ToString
            If lst.Contains(itm) = False Then
                lst.Add(itm)
            End If
        Next
        d2.Rows.Clear()
        For Each h In lst
            d2.Rows.Add(h.ToString.Trim, gsum(h))
        Next
    End Sub 

تسلمو ياشباب كثير .. الله يوفقكم ان شاء الله شغل اكثر من رائع اخ lION و مع خالص شكري لك اخ سعود

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

moh61

moh61

أبو عمر

سعود

أبو عمر

سعود

moh61