+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تجميع البيانات في الداتا قريد (/showthread.php?tid=28086)
تجميع البيانات في الداتا قريد - المتألق9 - 31-12-18
السلام عليكم
عندي داتاقريدفيو يوجد بها بيانات
ليست مرتبطة بقاعدة بيانات
مثلا يوجد بيها عمود يحتوي على البيانات التالية
محمد
علي
محمد
سالم
علي
محمد
اريد تجميع الحقول المتشابهة وتجميع القيم المقابلة لها
RE: تجميع البيانات في الداتا قريد - a.wagdi - 31-12-18
(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 ' تحويل الديكشنري الى قائمة لعرضها في الداتاجريد
RE: تجميع البيانات في الداتا قريد - المتألق9 - 01-01-19
مشكور ساجربها