منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حساب خانة في الداتا قريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=34162)

حساب خانة في الداتا قريد فيو - DOX.1 - 04-04-20

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

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

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

كود :
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()


RE: حساب خانة في الداتا قريد فيو - asemshahen5 - 04-04-20

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

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() 


RE: حساب خانة في الداتا قريد فيو - DOX.1 - 04-04-20

(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() 



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

RE: حساب خانة في الداتا قريد فيو - aljzazy - 04-04-20

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

كود :
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
استدعي الصب بعد اي عملية تقوم بها

RE: حساب خانة في الداتا قريد فيو - asemshahen5 - 06-04-20

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 هو الحدث المناسب للجمع .

RE: حساب خانة في الداتا قريد فيو - SaedAmer - 07-04-20

كود :
           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())


RE: حساب خانة في الداتا قريد فيو - المتألق9 - 06-03-23

(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() 

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