[DOX.1]

السـلام عليكم ورحمة الله وبركاته 

محتاج طريقة حسابية لخانة في الدداتا قريد فيو الكود عملته ولكن ما عرفت أستفيد من أي حدث 
عند أضافة صفوفوأو حذف صفوفأو تعديل صفوف

هل ممكن أحد يفيدني في أي حدث أضع الكود

كود :

Dim total As Decimal
       total = 0
       For i As Integer = 0 To DataGridView1.RowCount - 1
           total += CDec(DataGridView1.Rows(i).Cells(13).Value)
       Next
       Lap_TotelBile.Text = total.ToString()

[asemshahen5]

جرب احد هذين الكودين فهما مختصرين اكثر بالنسبة للحدث انهاء الاضافة و انهاء التعديل :

PHP كود :

'جرب هذا الكود اخي فهو يقوم بجمع حقول الداتا جريد الى تكست'
TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(1).Value)).Sum()
' كود يقوم بجمع العامود 0 الذي قيمة العامود 1 = "نقدا "'
TextBox1.Text = DataGridView1.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(1).Value) = "نقدا").Select(Function(row) CDbl(Val(row.Cells(0).Value))).Sum() 


[DOX.1]

(04-04-20, 09:19 PM)asemshahen5 كتب : جرب احد هذين الكودين فهما مختصرين اكثر بالنسبة للحدث انهاء الاضافة و انهاء التعديل :

PHP كود :

'جرب هذا الكود اخي فهو يقوم بجمع حقول الداتا جريد الى تكست'
TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(1).Value)).Sum()
' كود يقوم بجمع العامود 0 الذي قيمة العامود 1 = "نقدا "'
TextBox1.Text = DataGridView1.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(1).Value) = "نقدا").Select(Function(row) CDbl(Val(row.Cells(0).Value))).Sum() 


في أي حدث أضع هذا الكود لأن الصفوف قابله لزياده والنقصان والتعديل وأرغب في تحديث القيمة مع هذه الحالتيين

[aljzazy]

ضع الكود في امر منفصل

كود :

Public Sub InvoiceTotal()
       Dim Total1 As Decimal = "0.00"
       For Each row As DataGridViewRow In DataGridView1
           Total1 += row.Cells(13).Value
       Next
       Lap_TotelBile.Text = Total1
   End Sub

استدعي الصب بعد اي عملية تقوم بها

[asemshahen5]

PHP كود :

   Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        If e.ColumnIndex = 1 Then
            If e.RowIndex = DataGridView1.Rows.Count - 1 Then Exit Sub
            'جرب هذا الكود اخي فهو يقوم بجمع حقول الداتا جريد الى تكست'
            TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(1).Value)).Sum().ToString
            ' كود يقوم بجمع العامود 0 الذي قيمة العامود 1 = "نقدا "''
            ' TextBox1.Text = DataGridView1.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(1).Value) = "نقدا").Select(Function(row) CDbl(Val(row.Cells(0).Value))).Sum()
        End If
    End Sub 


DataGridView1.CellEndEdit هو الحدث المناسب للجمع .

[SaedAmer]

كود :

           Dim sum As Integer = 0
           For i As Integer = 0 To DataGridView1.Rows.Count - 1
               sum += Convert.ToInt32(DataGridView1.Rows(i).Cells(3).Value)
           Next

           DataGridView1.Rows.Add("")
           DataGridView1.Rows.Add("المجموع الكلي", sum.ToString())
           Label28.Text = (sum.ToString())

[المتألق9]

(04-04-20, 09:19 PM)asemshahen5 كتب : جرب احد هذين الكودين فهما مختصرين اكثر بالنسبة للحدث انهاء الاضافة و انهاء التعديل :

PHP كود :

'جرب هذا الكود اخي فهو يقوم بجمع حقول الداتا جريد الى تكست'
TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(1).Value)).Sum()
' كود يقوم بجمع العامود 0 الذي قيمة العامود 1 = "نقدا "'
TextBox1.Text = DataGridView1.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(1).Value) = "نقدا").Select(Function(row) CDbl(Val(row.Cells(0).Value))).Sum() 


بارك الله فيك وبارك في عمرك ومالك وولدك يارب