المشاركات : 355
المواضيع 46
الإنتساب : Jul 2018
السمعة :
43
الشكر: 80
تم شكره 464 مرات في 258 مشاركات
27-02-19, 09:10 PM
(آخر تعديل لهذه المشاركة : 27-02-19, 09:11 PM {2} بواسطة alfaiz678.)
السلام عليكم
اريد كود جمع عمود داتا جريد به قيمة فارغة وتجاوز رسالة الخطأ
وتحويل الصف الفارغ الى قيمة صفر إن أمكن
لنفترض ان صفوف العمو (1.2. .4)
المشاركات : 1,554
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3504
تم شكره 4879 مرات في 1244 مشاركات
وعليكم السلام ورحمة الله وبركاته ،،
العمود الأول = Cells(0)
العمود الثاني = Cells(1)
..... وهكذا
كود :
TextBox1.Text = (From row In dg1.Rows Select CDbl(Val(row.Cells(0).Value))).Sum()
يا رحمن الدنيا والآخرة ورحيمهما
المشاركات : 1,554
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3504
تم شكره 4879 مرات في 1244 مشاركات
01-03-19, 11:31 AM
(آخر تعديل لهذه المشاركة : 01-03-19, 11:46 AM {2} بواسطة حريف برمجة.)
العفو ،،
كود :
Dim cash = DataGridView1.Rows.Cast(Of DataGridViewRow).
Where(Function(row) CStr(row.Cells(1).Value) = "نقدا").
Select(Function(row) CDbl(Val(row.Cells(0).Value))).Sum()
MsgBox(cash)
يا رحمن الدنيا والآخرة ورحيمهما
المشاركات : 355
المواضيع 46
الإنتساب : Jul 2018
السمعة :
43
الشكر: 80
تم شكره 464 مرات في 258 مشاركات
ماشاء الله
جزاك الله خيرا
ماقصرت
المشاركات : 1,554
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3504
تم شكره 4879 مرات في 1244 مشاركات
بالتوفيق للجميع
يا رحمن الدنيا والآخرة ورحيمهما