[اليوم السابع]

(11-01-21, 01:22 AM)1nj كتب : دا نفس الكود في المشاركه رقم #2 لاخونا السندبااد


عدلتهولك بدل الداتاجريد اصبح داتاتبل وكمان يعمل تعداد للجميع يعني حتى الغير مكرر حسب مفهمت من كلامك

كود :

Dim query = dt.Rows.Cast(Of DataRow)().GroupBy(Function(x) x.Item("Name").ToString).ToDictionary(Function(x) x.Key, Function(y) y.Count())

For Each item In query
   MsgBox(item.Key & " " & item.Value)
Next

ِهو اولا طبعا شكرا لحضرتك ولتعب حضرتك بس ما اشتغلش معايا فالو حضرتك تشوف المشروع اللي ارسلته لحضرتك ع الخاص اكون شاكر