+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة (/showthread.php?tid=47938)
كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة - heem1986 - 21-02-24
لديه جدول داتا جريد فيو أريد جمع أرقام عمود فى الصفوف التى بها أسم معين وبها أختيار true وجزاكم الله خيراً
RE: كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة - Kamil - 21-02-24
استخدم هذا الكود
PHP كود :
TotalMoney.Text = (From row In GVItems.Rows Select CDbl(row.Cells(13).Value)).Sum().ToString
RE: كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة - AHMED213 - 21-02-24
Private Sub SumColumnValuesWithCondition()
Dim columnNameToCheck As String = "اسم العمود" ' اسم العمود الذي ترغب في فحصه
Dim valueToCheckFor As Boolean = True ' القيمة التي ترغب في فحصها في العمود الأخر
Dim columnToSum As String = "العمود الذي ترغب في جمع قيمه" ' اسم العمود الذي ترغب في جمع قيمه
Dim totalSum As Integer = 0
For Each row As DataGridViewRow In DataGridView1.Rows
If row.Cells(columnNameToCheck).Value IsNot Nothing AndAlso row.Cells(columnNameToCheck).Value.ToString() = valueToCheckFor.ToString() Then
Dim cellValue As Integer = 0
If Integer.TryParse(row.Cells(columnToSum).Value.ToString(), cellValue) Then
totalSum += cellValue
End If
End If
Next
MessageBox.Show("مجموع القيم: " & totalSum.ToString())
End Sub
RE: كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة - heem1986 - 24-02-24
السلام عليكم المراد بالضبط هو أنه يتم جمع تكلفة الصيانة فى مربع خاص بالمهندس إبراهيم حسب حالة الصيانة true دون جمع تكلفة صيانة المهندس احمد ودون جمع التكلفة التى حالة الصيانة الخاصة بها false وجزاكم الله خيراً
RE: كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة - aljzazy - 25-02-24
كود :
Dim sum As Integer = 0
For Each row As DataGridViewRow In DataGridView1.Rows
If row.Cells(3).Value IsNot Nothing AndAlso row.Cells(3).Value.ToString() = "abrahim" AndAlso
row.Cells(2).Value IsNot Nothing AndAlso row.Cells(2).Value.ToString() = "True" Then
' Check if column 1 has a valid integer value and accumulate the sum
Dim value As Integer
If Integer.TryParse(row.Cells(1).Value.ToString(), value) Then
sum += value
End If
End If
NextRE: كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة - heem1986 - 25-02-24
كيفية أخراج الناتج فى التيكست بوكس