[amgad525]

PHP كود :

Dim amountColumn As Integer = 2
Dim balanceColumn As String = "Balance"
Dim balance As Double = 0

With DataGridView1
   If Not .Columns.Cast(Of DataGridViewColumn).Any(Function(c) c.Name.Equals(balanceColumn)) Then
       .Columns.Add(balanceColumn, balanceColumn)
   End If
   For i = 0 To .Rows.Count - (If(.AllowUserToAddRows, 2, 1))
       balance += .Item(amountColumn, i).Value
       .Item(balanceColumn, i).Value = balance
   Next
End With