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

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

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

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


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

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

مش هتلاقيها ولا فى اى منتدى اجنبى (دورة مدموجة بالخبرات Big Grin)
السلام عليكم ورحمة الله وبركاته

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

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


السلام عليكم ورحمة الله وبركاته
وانا تحت امرك يا اخى ابو رائد
ياريت لو حد يفيدنا بالفبجوال بيسك 6
(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()