此主题相关图片如下:qq图片20210408143358.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2021-4/20214814343451832.png)
'一.数据录入:
Select Case e.StripItem.Name
Case "保存" '保存代
If e.Form.Controls("rq").text = "" Then
messagebox.show("请选择日期")
Return
ElseIf Tables("收款凭证_Table1").Compute("Count([贷方科目])") = 0 Then
Return
Else
Dim r As DataRow = DataTables("收付转财务数据源").SQLFind("[字号] = '收' And Month([日期]) = " & Month(e.Form.Controls("rq").Value) & " And [凭证号] = '" & e.Form.Controls("dh").text & "'")
If r Is Nothing Then
r = DataTables("收付转财务数据源").addnew
r("日期") = e.Form.Controls("rq").text
r("凭证号") = e.Form.Controls("dh").text
r("安日期生成单号辅助列") = e.Form.Controls("dh1").text
r("附件张数") = e.Form.Controls("TextBox1").text
r("录入员") = e.Form.Controls("lry").text
r("字号") = "收"
r("操作人姓名") = User.Name & " " & Date.Now
r("借或贷") = "借"
Dim Tel0 As String = e.Form.Controls("ComboBox3").text
Dim Parts0() As String = Tel0.Split("-")
If Parts0.length > 0 Then
r("借方科目") = Parts0(0)
If Parts0.length > 1 Then
r("二级科目") = Parts0(1)
End If
End If
r("借方金额") = Tables("收款凭证_Table1").DataTable.Compute("Sum(贷方金额)")
ElseIf r IsNot Nothing And r("借或贷") = "借" Then
r("日期") = e.Form.Controls("rq").text
r("附件张数") = e.Form.Controls("TextBox1").text
r("录入员") = e.Form.Controls("lry").text
r("操作人姓名") = User.Name & " " & Date.Now
Dim Tel0 As String = e.Form.Controls("ComboBox3").text
Dim Parts0() As String = Tel0.Split("-")
If Parts0.length > 0 Then
r("借方科目") = Parts0(0)
If Parts0.length > 1 Then
r("二级科目") = Parts0(1)
End If
End If
r("借方金额") = Tables("收款凭证_Table1").DataTable.Compute("Sum(贷方金额)")
End If
DataTables("收付转财务数据源").Save()
For Each dt As DataRow In Tables("收款凭证_Table1").DataTable.Select("[贷方科目] Is not null")
Dim Tel As String = dt("明细科目")
Dim Parts() As String = Tel.Split("-")
dt("日期") = e.Form.Controls("rq").text
dt("凭证号") = e.Form.Controls("dh").text
dt("安日期生成单号辅助列") = e.Form.Controls("dh1").text
dt("附件张数") = e.Form.Controls("TextBox1").text
dt("录入员") = e.Form.Controls("lry").text
dt("字号") = "收"
dt("借或贷") = "贷"
dt("操作人姓名") = User.Name & " " & Date.Now
If Parts.length > 0 Then
dt("二级科目") = Parts(0)
If Parts.length > 1 Then
dt("三级科目") = Parts(1)
If Parts.length > 2 Then
dt("四级科目") = Parts(2)
If Parts.length > 3 Then
dt("五级科目") = Parts(3)
dt.Save
End If
End If
End If
End If
Next
End If
End Select
上面的代码红色标注的借方代码有问题,没得出借方金额,它应等于贷方金额的合计,我无论直接引用贷方合计金额,还是统计贷方金额都没有结果,还的借方数据的行要在贷方数据的行上,这里走到贷方数据下了,另保存时未关闭收款凭证窗口前都见中间很多空行,我要在收付转财务数据源表中不产生这些空行。
[此贴子已经被作者于2021/4/8 14:46:19编辑过]