[1nj]

معناتو حنرجع للكود الاول وبدل name نضع admin وبكده يعرض الاعداد كلها

كود :

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

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

---

لو فيه true و false و احمد
حيكون مثلا
true = 30
false = 12
احمد = 43