20-06-17, 09:51 PM
الى الان ما فهمت ماذا تريد
ولكن من اجل جمع عمود مرر هذا الكود للداتا غريد مع مراعاة رقم الحقل والقيمة الفارغة والتكست وقد اخذتها
من هذا المنتدى
ولكن من اجل جمع عمود مرر هذا الكود للداتا غريد مع مراعاة رقم الحقل والقيمة الفارغة والتكست وقد اخذتها
من هذا المنتدى
كود :
Public Sub sumcolimdatagridview(ByVal dvg As DataGridView, ByVal txtsum As TextBox, ByVal Col As String, ByVal Col1 As String) 'جمع عمود بالداتا غريد
'اجراء جمع عمود بالداتا غريد فيو وياخذ اربعة معاملات
'الاول الداتا غريد فيو
'الثاني مربع نص من اجل الجمع
'الثالث تحديد حقل الذا كان فارغا لا يتم جمع السجل الفارغ
'الرابع الحقل المراد جمعه
Try
Dim sum As Decimal = 0 'تعريف متغير من نوع عملة
For i As Integer = 0 To dvg.Rows.Count - 1 ' حلقة تكرار من اجل جمع كافة سجلات الحق المطلوب
If Not dvg.Rows(i).Cells(Col).Value = Nothing Then
sum += Convert.ToDecimal(dvg.Rows(i).Cells(Col1).Value) 'عملية الجمع
End If
Next
txtsum.Text = sum.ToString() 'اسناد قيمة المتغير للتكست بوكس
Catch ex As Exception
MsgBox("Can't load Web page" & vbCrLf & ex.Message)
End Try
End Sub
سبحان الله والحمد لله ولا اله الا الله والله اكبر
