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

السلام عليكم منذ امس وانا ابحث عن شئ

لدي كما هو موضح في الصورة 
جدول اريد معرفه كم عدد الاشخاص اللي اسمها احمد و كم عدد الاشخاص اللي اسمها محمد وكم عدد الاشخاص اللي اسمها كريم
ملوحظه انا لا اعرف اسماء الاشخاص يعني وارد يكون الاسماء مختلفه فا كيف اعرف عددهم

[Owz]

الصوره غير موجوده

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

(10-01-21, 03:44 PM)Owz كتب : الصوره غير موجوده

[السندبااد]

وعليكم السلام ورحمة الله وبركاته
هنا شرح تفصيلي:
http://vb4arb.com/vb/showthread.php?tid=37148

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

(10-01-21, 11:21 PM)السندبااد كتب : وعليكم السلام ورحمة الله وبركاته
هنا شرح تفصيلي:
http://vb4arb.com/vb/showthread.php?tid=37148

شكرا لك اخي سندباد شرح ولا اروع بصراحه فيه مجهود كبير من حضرتك و من الاخ المحترم سعود 
بس سؤال انا لو بعبي الجدول من DataTable
 من خلال  dt.Rows.Add

كيف ممكن اعدلها لأني لم استخدم الداتا جريد فيو فا انا استخدم الجريد كنترول الخاص بتقنيه الديف اكسبريس

[السندبااد]

العفو أخي العزيز

للأسف، لا يوجد لدي خبرة بالديف إكسبريس ولا أستخدمها أبداً

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

(11-01-21, 12:38 AM)السندبااد كتب :

العفو أخي العزيز

للأسف، لا يوجد لدي خبرة بالديف إكسبريس ولا أستخدمها أبداً

طيب هل ممكن تتظبط بالداتا تيبل

---

(11-01-21, 12:44 AM)اليوم السابع كتب :

(11-01-21, 12:38 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

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

(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

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

[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)