كيفية حساب الرصيد التراكمي ووضعه في Datagridview

السلام عليكم ...

يمكن تحقيق ذلك بأكثر من طريقة :

1. طريقة الــ Expression مثال :

   Dim dt As New DataTable
       	dt.Columns.Add("debt", Type.GetType("System.Double"))
       	dt.Columns.Add("credit", Type.GetType("System.Double"))
       	dt.Columns.Add("total", Type.GetType("System.Double"), "debt - credit")
   
       	DataGridView1.DataSource = dt

   و لكن حتى تظهر القيمة في العمود الأخير يجب النزول إلى row جديد ..

2. Dim dt As New DataTable
       	dt.Columns.Add("debt", Type.GetType("System.Double"))
       	dt.Columns.Add("credit", Type.GetType("System.Double"))
       	dt.Columns.Add("total", Type.GetType("System.Double"))
       	AddHandler dt.ColumnChanged, AddressOf ColumnChanged
   
       	DataGridView1.DataSource = dt

   و لدينا :

   Private Shared Sub ColumnChanged(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
       	If e.Column.ColumnName = "debt" Or e.Column.ColumnName = "credit" Then
           	Dim debt As Double = 0
           	Dim credit As Double = 0
   
           	If Not e.Row("debt") Is DBNull.Value Then
               	debt = Convert.ToDouble(e.Row("debt").ToString)
           	End If
   
   
           	If Not e.Row("credit") Is DBNull.Value Then
               	credit = Convert.ToDouble(e.Row("credit").ToString)
           	End If
   
           	Dim total As Double = debt - credit
           	e.Row("total") = total
   
       	End If
   	End Sub

   وجدت انه يجب الانتقال إلى الخلية الأخيرة حتى تظهر القيمة ..

3. الحدث DataGridView1_CellValueChanged و الكود :

    Private Sub DataGridView1_CellValueChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
       	If e.ColumnIndex = 0 Or e.ColumnIndex = 1 Then
           	Dim debt As Double = 0
           	Dim credit As Double = 0
   
           	If Not String.IsNullOrEmpty(DataGridView1.Rows(e.RowIndex).Cells("debt").Value.ToString) Then
               	debt = Convert.ToDouble(DataGridView1.Rows(e.RowIndex).Cells("debt").Value.ToString)
           	End If
   
   
           	If Not String.IsNullOrEmpty(DataGridView1.Rows(e.RowIndex).Cells("credit").Value.ToString) Then
               	credit = Convert.ToDouble(DataGridView1.Rows(e.RowIndex).Cells("credit").Value.ToString)
           	End If
   
           	Dim total As Double = debt - credit
           	DataGridView1.Rows(e.RowIndex).Cells("total").Value = total
   
       	End If
   
   	End Sub

   اعتقد أنه الأفضل ..