enter image description here 我正在研究“现金支付”模块
在这里我要输入5个帐户,保存后将记入借方。现在,我正在使用下面的代码更新所有帐户,但您能检查一下我在做些什么错误吗?becz此代码无法正常工作,它无法保存记录,但不会达到帐户
我尝试了以下代码:
For Each row As DataGridViewRow In CashpaymentDataGridView.Rows
If Not row.IsNewRow Then
con = New SqlConnection(appx.myconnection)
con.Open()
Dim ctx As String = "select Account_Title from COA where Account_Title=@d1 and Account_Title=@d2"
cmd = New SqlCommand(ctx)
cmd.Connection = con
cmd.Parameters.AddWithValue("@d1", row.Cells(3).Value)
cmd.Parameters.AddWithValue("@d2", row.Cells(5).Value)
rdr = cmd.ExecuteReader()
If (rdr.Read()) Then
con = New SqlConnection(appx.myconnection)
con.Open()
Dim cb2 As String = "Update COA set opening_balance = opening_balance + " & row.Cells(3).Value & " where AccountID=@d1"
Dim cb3 As String = "Update COA set opening_balance = opening_balance - " & row.Cells(5).Value & " where AccountID=@d2"
cmd = New SqlCommand(cb2 And cb3)
cmd.Connection = con
cmd.Parameters.AddWithValue("@d1", (row.Cells(3).Value))
cmd.Parameters.AddWithValue("@d2", row.Cells(5).Value)
cmd.ExecuteReader()
con.Close()
End If
End If
我正在输入5个帐户,保存后会记入借方。现在我正在使用下面的代码来更新所有帐户,但是您可以检查我在做什么错误,因为此代码不起作用。它正在保存记录,但没有到达帐户
问题 您无法对自己的帖子投票 0 亲爱的彼得,感谢您的代码,但是我的观点仍然不清楚,因此我附上了表格的屏幕截图
现在这里的COA FROM和PAYMENT FROM是帐户中的现金,将按总金额记入贷方
COA TO和PAYMENT TO是借记帐户,将按实际金额借记
COA TO和COA FROM是COA帐户ID,而vb代码将根据COA帐户ID NUMBER进行更新
所以当用户按下SAVE
COA FROM下的所有帐户ID(默认为手头现金)将通过实际值获得信用
以及“ COA至”下的所有帐户ID都将借记到实际金额,但不计入总额
示例条目
coa id描述dr cr total
30141测试帐户供应商5000
30162 cash in hand 5000 5000
30141测试帐户其他5000
30162 cash in hand 5000 5000
30141测试新的5000
30162 cash in hand 5000 5000
现在所有可贷记为现金的条目的总数为15000,并且当用户按Save时,每个帐户的vb代码为5000,这将在datagridview中使用COA TO列完成借记