[نور الهدى الهدى]

السلام عليكم

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

متال

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

وتكون نتيجة خالد في التكست بوكس 30

[elgokr]

وعليكم السلام ورحمة الله وبركاته

فى كود الاستعلام ستحتاج الى استخدام كلاً من Sum لعمود المبلغ

ومن الممكن Min لعمود الترقيم / التسلسل

ويترك عمود الاسم طبيعي وينتهى كود الاستعلام بـ Group by وهنا يكتب اسم عمود الاسم

التوضيح اكتر بكود مثال

كود :

SELECT Min(id), Sum(money), name FROM T1 Group By name

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

تحياتى لك

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

[نور الهدى الهدى]

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

[elgokr]

الامر هنا سيحتاج الى توضيح اكثر

كيف يتم تعبئة الداتا جريد هل يدوياً او من خلال استعلام من قاعدة بيانات

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

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

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

تحياتى لك

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

[نور الهدى الهدى]

يتم التعبئة يدويا بدون قاعدة بيانات 

متال

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

وعند تحديد اسم خالد داخل التكست بوكس والضغط على  الزر تكون نتيجة خالد
 في التكست بوكس التاني  30 

[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

[elgokr]

فى الحالة دى ستحتاج الى اتمام التالى طبقاً لما هو فى الرابط التالى

https://social.msdn.microsoft.com/Forums...=vbgeneral

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

تحياتى لك

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

[نور الهدى الهدى]

كود :

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

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

تحياتى لك

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

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

[elgokr]

لا عليك اخى الاهم ان تصل لما تريده تماماً

تحياتى لك

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