Как делать Открытие и закрытие ... Пожалуйста помочь

---

Я столкнулся с проблемой в crystal reports. Я не могу получить или решить проблему начального баланса, который является закрытием баланса предыдущего дня. Позвольте мне показать вам мою структуру книги в ms sql.

[dbo].[ledgerreport](
[ledgerautonumber] [int] IDENTITY(1,1) NOT NULL,
[serialno] [varchar](50) NULL,
[accountiddr] [varchar](50) NULL,
[accountnamedr] [varchar](50) NULL,
[accountidcr] [varchar](50) NULL,
[accountnamecr] [varchar](50) NULL,
[dateledger] [date] NULL,
[voucherid] [varchar](50) NULL,
[debitamount] [decimal](18, 2) NULL,
[creditamount] [decimal](18, 2) NULL,
[description] [varchar](50) NULL,
[closingbalance] [decimal](18, 2) NULL,
[unit] [varchar](50) NULL

и мой код, который я использую в vb.net

<pre>Try
        con = New SqlConnection(appx.myconnection)
        con.Open()
        Dim cb2 As String = "insert into ledgerreport(serialno,dateledger,voucherid,debitamount,creditamount,description,closingbalance,unit,accountiddr,accountnamedr,accountidcr,accountnamecr) VALUES (@d100,@d101,@d102,@d103,@d104,@d105,@d106,@d107,@d108,@d109,@d110,@d111)"
        cmd = New SqlCommand(cb2)
        cmd.Connection = con
        ' Prepare command for repeated execution
        cmd.Prepare()
        ' Data to be inserted
        For Each row As DataGridViewRow In DataGridView1.Rows
            If Not row.IsNewRow Then
                cmd.Parameters.AddWithValue("@d100", row.Cells(0).Value) 'serial no
                cmd.Parameters.AddWithValue("@d101", row.Cells(3).Value) 'dateledger
                cmd.Parameters.AddWithValue("@d102", row.Cells(2).Value) 'voucher id
                cmd.Parameters.AddWithValue("@d103", row.Cells(7).Value) 'debit amount
                cmd.Parameters.AddWithValue("@d104", row.Cells(8).Value) 'credit amount
                cmd.Parameters.AddWithValue("@d105", row.Cells(6).Value) 'description
                cmd.Parameters.AddWithValue("@d106", row.Cells(13).Value) 'closing balance
                cmd.Parameters.AddWithValue("@d107", row.Cells(1).Value) 'unit
                cmd.Parameters.AddWithValue("@d108", row.Cells(4).Value) 'accountiddr
                cmd.Parameters.AddWithValue("@d109", row.Cells(5).Value) 'accoutnamedr
                cmd.Parameters.AddWithValue("@d110", AccountidcrTextEdit.Text) 'accountidcr
                cmd.Parameters.AddWithValue("@d111", cashaccounttxtedit.Text) ' accountnamecr


                cmd.ExecuteNonQuery()
                cmd.Parameters.Clear()
            End If
        Next
        con.Close()
    Catch ex As Exception
        MsgBox(ex.Message & " " & "Error Code : CPV-LG-002", vbOKOnly + vbCritical, "Error Code : CPV-LG-002")
    End Try

теперь то, что я делаю здесь, - это всякий раз, когда пользователь делает транзакцию в денежном платеже, код книги сохраняет детали в таблице sql. А в отчете я использую поля и параметры для создания отчета. но я не могу получить начальный баланс, который является заключительным балансом моего отчета за последний день. Здесь я сталкиваюсь с проблемой. как я могу получить начальный баланс, используя мои вышеуказанные коды.

пожалуйста, направьте меня и помогите решить эту проблему

позвольте мне объяснить подробнее

что мне нужно, так это сохранять итоговый баланс после каждой записи в бухгалтерскую книгу.

предположим, у меня есть два счета

наличные в кассе 10 000

поставщик 0

теперь счет поставщика равен 0, и я взял у него какой-то материал стоимостью 5000 долларов. теперь я должен заплатить ему

так что я пройду запись

счет поставщика 5000

наличные в кассе 5000

теперь начальный баланс поставщика был равен 0 в его бухгалтерской книге

после вышеуказанного входа баланс закрытия будет равен 5000

точно так же, если я открою кассовую книгу, она даст мне начальный баланс = 5000

после входа он даст мне закрытие баланса = 0

вот что мне нужно

так что я могу использовать ваш код

Спасибо

Что я уже пробовал:

я попробовал вышеописанные коды, но я совершенно не знаю, как это сделать на самом деле.

---