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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27174)

سؤال بخصوص القريد فيو - نور الهدى الهدى - 29-10-18

السلام عليكم

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

متال

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

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

RE: سؤال بخصوص القريد فيو - elgokr - 29-10-18

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

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

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

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

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


RE: سؤال بخصوص القريد فيو - نور الهدى الهدى - 30-10-18

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

RE: سؤال بخصوص القريد فيو - elgokr - 30-10-18

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

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

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

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


RE: سؤال بخصوص القريد فيو - نور الهدى الهدى - 30-10-18

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

متال

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

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

RE: سؤال بخصوص القريد فيو - rmnr - 30-10-18

كود :
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


RE: سؤال بخصوص القريد فيو - elgokr - 30-10-18

فى الحالة دى ستحتاج الى اتمام التالى طبقاً لما هو فى الرابط التالى
https://social.msdn.microsoft.com/Forums/vstudio/en-US/d00e93f2-ab8f-4069-96e7-927ca8a30a94/how-to-calculate-total-amount-in-datagridview-column-and-row-in-vbnet?forum=vbgeneral

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

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


RE: سؤال بخصوص القريد فيو - نور الهدى الهدى - 31-10-18

(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 كتب :
فى الحالة دى ستحتاج الى اتمام التالى طبقاً لما هو فى الرابط التالى

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

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

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

RE: سؤال بخصوص القريد فيو - elgokr - 31-10-18

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

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