[1nj]

المشروع مشتغلش معايا بسبب الديف اكسبرس

لكن شفت ملف الاكسل
الكود دا لمعرفه كم عدد الترو و كم عدد الفولس في العامود ادمن

كود :

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

Dim trueCount = 0, falseCount = 0
For Each item In query
   If item.Key = "true" Then trueCount = item.Value
   If item.Key = "false" Then falseCount = item.Value
Next
MsgBox("true= " & trueCount)
MsgBox("false= " & falseCount)