منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال في معرفه مجموع الاعداد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال في معرفه مجموع الاعداد (/showthread.php?tid=37437)

الصفحات: 1 2


سؤال في معرفه مجموع الاعداد - اليوم السابع - 10-01-21

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

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



RE: سؤال في معرفه مجموع الاعداد - Owz - 10-01-21

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


RE: سؤال في معرفه مجموع الاعداد - اليوم السابع - 10-01-21

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



RE: سؤال في معرفه مجموع الاعداد - السندبااد - 10-01-21

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


RE: سؤال في معرفه مجموع الاعداد - اليوم السابع - 11-01-21

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

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

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


RE: سؤال في معرفه مجموع الاعداد - السندبااد - 11-01-21

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

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



RE: سؤال في معرفه مجموع الاعداد - اليوم السابع - 11-01-21

(11-01-21, 12:38 AM)السندبااد كتب :
العفو أخي العزيز

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

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

(11-01-21, 12:44 AM)اليوم السابع كتب :
(11-01-21, 12:38 AM)السندبااد كتب :
العفو أخي العزيز

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

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

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

ملف الاكسيل مرفق مع المشروع حضرتك ممكن تعمله استراد داخل المشروع


RE: سؤال في معرفه مجموع الاعداد - 1nj - 11-01-21

دا نفس الكود في المشاركه رقم #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



RE: سؤال في معرفه مجموع الاعداد - اليوم السابع - 11-01-21

(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
ِهو اولا طبعا شكرا لحضرتك ولتعب حضرتك بس ما اشتغلش معايا فالو حضرتك تشوف المشروع اللي ارسلته لحضرتك ع الخاص اكون شاكر


RE: سؤال في معرفه مجموع الاعداد - 1nj - 11-01-21

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

لكن شفت ملف الاكسل
الكود دا لمعرفه كم عدد الترو و كم عدد الفولس في العامود ادمن
كود :
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)