تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال في معرفه مجموع الاعداد
#1
السلام عليكم منذ امس وانا ابحث عن شئ

لدي كما هو موضح في الصورة 
جدول اريد معرفه كم عدد الاشخاص اللي اسمها احمد و كم عدد الاشخاص اللي اسمها محمد وكم عدد الاشخاص اللي اسمها كريم
ملوحظه انا لا اعرف اسماء الاشخاص يعني وارد يكون الاسماء مختلفه فا كيف اعرف عددهم
الرد
تم الشكر بواسطة:
#2
الصوره غير موجوده
الرد
تم الشكر بواسطة:
#3
(10-01-21, 03:44 PM)Owz كتب : الصوره غير موجوده


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

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

كيف ممكن اعدلها لأني لم استخدم الداتا جريد فيو فا انا استخدم الجريد كنترول الخاص بتقنيه الديف اكسبريس
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#6
العفو أخي العزيز

للأسف، لا يوجد لدي خبرة بالديف إكسبريس ولا أستخدمها أبداً
فاعلم أنه لا إله إلا الله
الرد
تم الشكر بواسطة: اليوم السابع , ابراهيم ايبو
#7
(11-01-21, 12:38 AM)السندبااد كتب :
العفو أخي العزيز

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

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

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

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

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

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

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


الملفات المرفقة
.rar   XLSX.rar (الحجم : 57.91 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة: ابراهيم ايبو
#8
دا نفس الكود في المشاركه رقم #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
الرد
تم الشكر بواسطة: اليوم السابع , ابراهيم ايبو
#9
(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
ِهو اولا طبعا شكرا لحضرتك ولتعب حضرتك بس ما اشتغلش معايا فالو حضرتك تشوف المشروع اللي ارسلته لحضرتك ع الخاص اكون شاكر
الرد
تم الشكر بواسطة: ابراهيم ايبو
#10
المشروع مشتغلش معايا بسبب الديف اكسبرس

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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم