منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سؤال بخصوص القريد فيو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

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

متال

خالد 10
عمر 5
خالد 20

وتكون نتيجة خالد في التكست بوكس 30
وعليكم السلام ورحمة الله وبركاته

فى كود الاستعلام ستحتاج الى استخدام كلاً من Sum لعمود المبلغ
ومن الممكن Min لعمود الترقيم / التسلسل
ويترك عمود الاسم طبيعي وينتهى كود الاستعلام بـ Group by وهنا يكتب اسم عمود الاسم

التوضيح اكتر بكود مثال
كود :
SELECT Min(id), Sum(money), name FROM T1 Group By name

اتمنى ان تكون الفكرة وصلت كاملاً

تحياتى لك
وتمنياتى لك التوفيق
اخي elgokr مشكوورر على هذه الاجابة 
ولكن ما احتاجه هوا عن طريق الداتا قريد وليس عن طريق الإستعلام من قاعدة البيانات
الامر هنا سيحتاج الى توضيح اكثر
كيف يتم تعبئة الداتا جريد هل يدوياً او من خلال استعلام من قاعدة بيانات

واذا تم ارفاق مثال بسيط لاتمام العمل عليه ووضع الكود المناسب
سيكون افضل وسيتم اعادة ارفاقه لك بعد اضافة الكود لما يناسب عملك

أو توضيح بالرد الكود المطلوب التعامل معه 

تحياتى لك
وتمنياتى لك التوفيق
يتم التعبئة يدويا بدون قاعدة بيانات 

متال

خالد 10
عمر 5
خالد 20

وعند تحديد اسم خالد داخل التكست بوكس والضغط على  الزر تكون نتيجة خالد
 في التكست بوكس التاني  30 
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim total As Double = 0
   For Each r As DataGridViewRow In Me.DataGridView1.Rows
       If r.IsNewRow Then Exit For
       If r.Cells(0).Value.ToString = "خالد" Then
           total += Val(r.Cells(1).Value)
       End If
   Next
   TextBox1.Text = total
End Sub
فى الحالة دى ستحتاج الى اتمام التالى طبقاً لما هو فى الرابط التالى
https://social.msdn.microsoft.com/Forums...=vbgeneral

ستجد صورة توضح الفكرة المطلوبة مع الكود المستخدم

تحياتى لك
وتمنياتى لك التوفيق
(30-10-18, 08:15 PM)rmnr كتب : [ -> ]
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim total As Double = 0
   For Each r As DataGridViewRow In Me.DataGridView1.Rows
       If r.IsNewRow Then Exit For
       If r.Cells(0).Value.ToString = "خالد" Then
           total += Val(r.Cells(1).Value)
       End If
   Next
   TextBox1.Text = total
End Sub

اخي هذا هو المطلوووب مشكور جدا وجعله الله في ميزان حسناتك  Smile

(30-10-18, 08:57 PM)elgokr كتب : [ -> ]
فى الحالة دى ستحتاج الى اتمام التالى طبقاً لما هو فى الرابط التالى

ستجد صورة توضح الفكرة المطلوبة مع الكود المستخدم

تحياتى لك
وتمنياتى لك التوفيق

تم ايجاد الحل ومشكور على تعاونك الدئم وجزاك الله خير الجزاء
لا عليك اخى الاهم ان تصل لما تريده تماماً

تحياتى لك
وتمنياتى لك التوفيق