الرصيد التراكمي - نسخة قابلة للطباعة

كود :
Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DataGridView1.Rows.Add(5)

        DataGridView1.Rows(0).Cells(0).Value = 100

        DataGridView1.Rows(1).Cells(0).Value = 0

        DataGridView1.Rows(2).Cells(0).Value = 50

        DataGridView1.Rows(3).Cells(0).Value = 0

        DataGridView1.Rows(4).Cells(0).Value = 25



        DataGridView1.Rows(0).Cells(1).Value = 0

        DataGridView1.Rows(1).Cells(1).Value = 200

        DataGridView1.Rows(2).Cells(1).Value = 0

        DataGridView1.Rows(3).Cells(1).Value = 150

        DataGridView1.Rows(4).Cells(1).Value = 0

        Dim cun As Integer

        For i = 0 To DataGridView1.Rows.Count - 1

            If DataGridView1.Rows(i).Cells(0).Value = 0 Then

                cun = DataGridView1.Rows(i).Cells(1).Value + cun

                DataGridView1.Rows(i).Cells(2).Value = cun.ToString



            ElseIf DataGridView1.Rows(i).Cells(0).Value > 0 Then

                cun = cun - DataGridView1.Rows(i).Cells(0).Value

                DataGridView1.Rows(i).Cells(2).Value = cun.ToString



            End If

        Next



    End Sub

End Class