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

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

(31-12-18, 05:46 PM)المتألق9 كتب : [ -> ]السلام عليكم
عندي داتاقريدفيو يوجد بها بيانات
ليست مرتبطة بقاعدة بيانات
مثلا يوجد بيها عمود يحتوي على البيانات التالية
محمد
علي
محمد
سالم
علي
محمد
اريد تجميع الحقول المتشابهة وتجميع القيم المقابلة لها

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

تفضل الكود

PHP كود :

Dim d As New Dictionary(Of String, Double) ' إنشاء ديكشنري من نص وقيمة

For Each r In DataGridView1.Rows ' لوب للمرور على جميع اسطر الداتاجريد
    If r.IsNewRow Then Exit For 'الخروج من اللوب عند السطر الجديد
    Dim c1 = r.Cells(1).Value ' الاسم
    Dim c2 = Val(r.Cells(2).Value) ' القيمة
    If d.ContainsKey(c1) Then ' التأكد من وجود الاسم في الديكشنري
        d(c1) = d(c1) + c2 ' أضف القيمة للاسم الى القيم السابقة له
    Else
        d.Add(c1, c2) ' أضف الاسم الجديد مع أول قيمة له
    End If
Next

DataGridView1.DataSource = d.ToList ' تحويل الديكشنري الى قائمة لعرضها في الداتاجريد 

مشكور ساجربها

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

المتألق9

a.wagdi

المتألق9