[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