اريد مساعدة في (جمع عمود في Data Grid View تلقائيا)
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك vb.net :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
اريد مساعدة في (جمع عمود في Data Grid View تلقائيا)
السلام عليكم
أولا
شاكر موقعكم والقائمين عليه لهذه الدرواس الحقيقة مميزة وتحتلف عما وجدته في باقي المواقع
وخصوصا التعامل مع Data Grid View
..
لدي مشكل
وهي كيف جمع عمود في Data Grid View تلقائيا
يعني يجمع تلقائيا مثل خاصية الجمع التلقائي في برنامج الاكسل
كلما اضيف رقم يضيفه الى المجموع
مع جزيل الشكر والمحبة لكم
أولا
شاكر موقعكم والقائمين عليه لهذه الدرواس الحقيقة مميزة وتحتلف عما وجدته في باقي المواقع
وخصوصا التعامل مع Data Grid View
..
لدي مشكل
وهي كيف جمع عمود في Data Grid View تلقائيا
يعني يجمع تلقائيا مثل خاصية الجمع التلقائي في برنامج الاكسل
كلما اضيف رقم يضيفه الى المجموع
مع جزيل الشكر والمحبة لكم
صفاء الخيكاني- .
- تاريخ التسجيل : 09/04/2014
المساهمات : 9
النقاط : 21
التقيم : 0
الدولة :
الجنس :
رد: اريد مساعدة في (جمع عمود في Data Grid View تلقائيا)
أهلا وسهلا بكم أخى الكريم وشكر لاستحسانك منتدى مصر التقنى .... ونرجوا المعذرة فى التاخر على الرد فى استفسارك
أما بالنسبة لاستفسارك فلنفترض انك تريد جمع قيم العامود Product_Price واظهار الناتج تلقائيا فى مربع النص txtTotlePur .....سنقوم بكتابة الكود التالى فى حدث CellEndEdit و الذى يؤدى الى تنفيذ الكود حال الانتهاء من كتابة قيمة فى الخلية
و بالتالى فمجرد إضافة قيم فى خلايا العامود Product_Price يتم جمعها تلقائى فى مربع النص المشار الية
أما بالنسبة لاستفسارك فلنفترض انك تريد جمع قيم العامود Product_Price واظهار الناتج تلقائيا فى مربع النص txtTotlePur .....سنقوم بكتابة الكود التالى فى حدث CellEndEdit و الذى يؤدى الى تنفيذ الكود حال الانتهاء من كتابة قيمة فى الخلية
- الكود:
Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
Dim tot As Double = 0
With DataGridView1
For Each d As DataGridViewRow In DataGridView1.Rows
tot += CDbl(d.Cells("Product_Price").Value)
Next
txtTotlePur.Text = tot.ToString()
End With
End Sub
و بالتالى فمجرد إضافة قيم فى خلايا العامود Product_Price يتم جمعها تلقائى فى مربع النص المشار الية
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: اريد مساعدة في (جمع عمود في Data Grid View تلقائيا)
أما اذا اردت جمع أو ضرب أو اى عملية حسابية اخرى على قيم كل صف على حدة فى Data Grid View يمكنك استخدام الكود التالى :
حيث أن Total هو العامود المراد اظهار قيم كل صف فيه
و النتيجة
- الكود:
Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
With DataGridView1.Rows(e.RowIndex)
.Cells("Total").Value = .Cells("Price").Value * .Cells("Quantity").Value
End With
DataGridView1.InvalidateColumn(DataGridView1.Columns("Total").Index)
End Sub
حيث أن Total هو العامود المراد اظهار قيم كل صف فيه
و النتيجة
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: اريد مساعدة في (جمع عمود في Data Grid View تلقائيا)
ربي لا يحرمني من عطائكم وابداعكم
جزيل الشكر والتقدير لكم
الله يوفقكم الى كل خير
جزيل الشكر والتقدير لكم
الله يوفقكم الى كل خير
صفاء الخيكاني- .
- تاريخ التسجيل : 09/04/2014
المساهمات : 9
النقاط : 21
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك vb.net :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
الخميس أبريل 25, 2024 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft