السلام عليكم منذ امس وانا ابحث عن شئ
لدي كما هو موضح في الصورة
جدول اريد معرفه كم عدد الاشخاص اللي اسمها احمد و كم عدد الاشخاص اللي اسمها محمد وكم عدد الاشخاص اللي اسمها كريم
ملوحظه انا لا اعرف اسماء الاشخاص يعني وارد يكون الاسماء مختلفه فا كيف اعرف عددهم
(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)السندبااد كتب : [ -> ]العفو أخي العزيز
للأسف، لا يوجد لدي خبرة بالديف إكسبريس ولا أستخدمها أبداً
طيب هل ممكن تتظبط بالداتا تيبل
و ده برضو المشروع لو حضرتك تعرف تعدلي عليه
ان اعرف عدد الترو و الفولس في العامود ادمن
ملف الاكسيل مرفق مع المشروع حضرتك ممكن تعمله استراد داخل المشروع
دا نفس الكود في المشاركه رقم
#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
ِهو اولا طبعا شكرا لحضرتك ولتعب حضرتك بس ما اشتغلش معايا فالو حضرتك تشوف المشروع اللي ارسلته لحضرتك ع الخاص اكون شاكر
المشروع مشتغلش معايا بسبب الديف اكسبرس
لكن شفت ملف الاكسل
الكود دا لمعرفه كم عدد الترو و كم عدد الفولس في العامود ادمن
كود :
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)