[nabil]

السلام عليكم اريد يا جماعه الخير جمع عمود في داتا جريد واظهار الناتج في تكست بوكس ولكم مني جزيل الشكر لغه فجوال بيزك دوت نت

[sherif khalid]

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

هذا طلبك يا اخى

كود :

Dim sum As Integer = 0
        For i As Integer = 0 To DGV.Rows.Count - 1
            sum += Convert.ToInt32(DGV.Rows(i).Cells(0).Value)
        Next
        TextBox1.Text = sum.ToString()

[nabil]

(18-10-13, 11:58 PM)sherif khalid كتب :

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

هذا طلبك يا اخى

كود :

Dim sum As Integer = 0
        For i As Integer = 0 To DGV.Rows.Count - 1
            sum += Convert.ToInt32(DGV.Rows(i).Cells(0).Value)
        Next
        TextBox1.Text = sum.ToString()

الف الف الف شكر يا خي علي تعونك معي الكود يعمل بنجاح

[@@أبورائد@@]

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

وهذه طريقة أخرى باستخدام Ling (أنا لا أتقنها والدليل كتبت Ling بالـ G وليس بالـ Q ولكني وجدتها فنسختها فعدلتها فألصقتها)

كود :

Me.TextBox1.Text = DataGridView1.Rows.Cast(Of DataGridViewRow).Sum(Function(t) t.Cells(0).Value)

وأيضاً

كود :

Me.TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(0).Value)).Sum()

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

[sherif khalid]

انا تحت امرك يا استاذ نبيل وامر جميع الاخوة فى اى وقت

اخى ابو رائد وحيات عيونك الغالية لاضع لك دورة فى المنتدى عن linq

مش هتلاقيها ولا فى اى منتدى اجنبى (دورة مدموجة بالخبرات )

[@@أبورائد@@]

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

تسلم لي عيونك أخي شريف

للتو دخلت لأضع مجموعة جمعتها وعدلتها بصعوبة بالغة لجمع عمود محدد لأي من DataGridView و ListBox و ListView و DataTable فوجدت مفاجأتك الغالية، أسأل الله أن يزيدك من فضله.
@@@ جمع قيم عمود محدد لأي من DataGridView و LisBox و ListView و DataTable @@@


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

[sherif khalid]

وانا تحت امرك يا اخى ابو رائد

[عمر يشر]

ياريت لو حد يفيدنا بالفبجوال بيسك 6

[mohamed125]

(10-03-15, 11:40 PM)عمر يشر كتب : ياريت لو حد يفيدنا بالفبنفس الطلب بالفيجول كيف تنفيذ

---

لو ممكن نفس المثال فى فيجول بيسك 6

[عبدالمؤمن]

(18-10-13, 11:58 PM)sherif khalid كتب :

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


هذا طلبك يا اخى


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

كود :

Dim sum As Integer = 0
       For i As Integer = 0 To DGV.Rows.Count - 1
           sum += Convert.ToInt32(DGV.Rows(i).Cells(0).Value)
       Next
       TextBox1.Text = sum.ToString()