会计凭证的设计和录入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小区车辆管理（040801）.rar

密码：888888

收款凭证录入，看36楼图片，保存后收付转财务数据源表上下行都有数据，中间很多空行，关闭收款凭证窗口后这些空行才被删除，财务数据源表借方金额列没数据，它应等于收款凭证窗口中的贷方金额的合计，或

r("借方金额") = DataTables("收付转财务数据源").Compute("Sum(贷方金额)","[字号] = '收' And [日期] = #" & e.Form.Controls("rq") & "# And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '贷'")

但始终没数据显示，至于修改凭证号后重新保存问题，我设了一个隐藏的单号（注：安日期生成单号辅助列）它生成后固定不变，这样就能解决判断窗口中这张单是否已保存的重复录入问题。

重新借方金额如何引用。

你是真不明白这单据是怎么录入的，会计凭证有借、贷对应的科目和金额的，比如：

借：银行存款——某某行某某分行　830

　　贷：主营业收入——月租停车收入　　720

　　　　主营业收入——临时停车收入　　110　

窗口中的收款凭证打开时默认格式，因此你没必要改AfterLoad中的代码，那没问题，窗口中的表中只显示贷方的会计科目、明细科目和金额，那是会计凭证的公认格式，铁定的，不能改，至于人民币式、外币式、金额式、数量金额式格式只能通过控件选项撤换，借方的科目在左上角的控件选项上，金额等于贷方金额的合计，现在贷方的科目、明细、金额，还有它们的单号、日期、借或贷的保存都没问题，问题在借方科目、金额的保存，金额要统计窗口中贷方科目的金额。　　　　　　

我现在死追问的是怎么引用保存窗口中的贷方合计金额？因为借方的金额等于窗口中的贷方合计金额。

保存到收付转财务数据源表

我不是有代码了吗？添加一行，现在这行其他数据都显示了，就差统计。

'一.数据录入:

Select Case e.StripItem.Name

Case "保存" '保存代

If e.Form.Controls("rq").text = "" Then

messagebox.show("请选择日期")

Return

ElseIf Tables("收款凭证_Table1").Compute("Count([贷方科目])") = 0 Then

Return

End If

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

Dim r As DataRow = DataTables("收付转财务数据源").SQLFind("[字号] = '收' And Month([日期]) = " & Month(e.Form.Controls("rq")) & " And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '借'")

If r Is Nothing Then

r = DataTables("收付转财务数据源").addnew

r("日期") = e.Form.Controls("rq").text

r("凭证号") = e.Form.Controls("dh").text

r("借或贷") = "借"

r("安日期生成单号辅助列") = e.Form.Controls("dh1").text

r("附件张数") = e.Form.Controls("TextBox1").text

r("录入员") = e.Form.Controls("lry").text

r("字号") = "收"

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

ElseIf r IsNot Nothing Then

r("日期") = e.Form.Controls("rq").text

r("凭证号") = e.Form.Controls("dh").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

DataTables("收付转财务数据源").Save()

End Select

[此贴子已经被作者于2021/4/9 9:54:08编辑过]

借方金额等于收款凭证窗口贷方金额合计：

我这样写：

r("借方金额") = Tables("记账凭证_Table1").Cols("贷方金额").GrandTotal

这样写：

r("借方金额") = Tables("收款凭证_Table1").DataTable.Compute("Sum(贷方金额)")

这样写：

都没有数据。

有值啊，手工输入的啊。

此主题相关图片如下：空行.png

没关闭窗口前产生很多空行怎么解决？目前修改收款凭证里的贷方金额重新保存，收付转财务数据源中的借、贷金额都没跟着改变。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小区车辆管理（0409）.rar

密码：888888

哦，在定义行时加个条件不为空保存就行了。

那修改收款凭证里的贷方金额重新保存，收付转财务数据源中的借、贷金额都没跟着改变怎么解决？

主题：会计凭证的设计和录入