+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو (/showthread.php?tid=26714)
سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو - alfaiz678 - 30-09-18
السلام عليكم ورحمة الله وبركاته
لدي داتا جريد وفيها عمود الرصيد ويحتوي العمود على العديد من سجلات الاعداد منها سالب والاخر موجب
كيف يمكنني جمع الاعداد الموجبة فقط من هذا العمود
وحياكم الله جميعا
RE: سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو - عبدالله الدوسري - 30-09-18
وعليكم السلام ورحمة الله وبركاتة
استخدم هذة الطريقة : أفضل
كود :
Dim CellIndex As Integer = 1 ' الخاص بالخلية, وهو ترتيبها Index ضع عنا رقم الـ
Dim Total As Double = DataGridView1.Rows.Cast(Of DataGridViewRow).Sum(
Function(r)
If Not IsDBNull(r.Cells(CellIndex).Value) AndAlso Val(r.Cells(CellIndex).Value) > 0 Then
Return Val(r.Cells(CellIndex).Value)
Else
Return 0
End If
End Function)
MsgBox(Total)كود :
Dim Total As Double = 0
Dim CellIndex As Integer = 1 ' الخاص بالخلية, وهو ترتيبها Index ضع عنا رقم الـ
For Each r As DataGridViewRow In DataGridView1.Rows
If Not IsDBNull(r.Cells(CellIndex).Value) AndAlso Val(r.Cells(CellIndex).Value) > 0 Then
Total += Val(r.Cells(CellIndex).Value)
End If
Next
MsgBox(Total)RE: سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو - alfaiz678 - 01-10-18
جزاك الله خير
أخي عبدالله
ماقصرت