此主题相关图片如下：qq图片20210502192807.png
这是收款凭证格式，之前红色标注部份代码是For Each dt As DataRow In Tables("收款凭证_Table1").DataTable.Select("[贷方科目] Is not null")时，贷方数据能保存的，因修改后再保存，会把后台所有数据改为凭证上的数据，故把条件改为红色标注代码，现在问题来了，收款凭证_Table1表并不存在字号、日期、凭证号，我在命令窗口试过即使收款凭证_Table1添加这3列数据，再隐藏，命令窗口中也无法实现以隐藏数据为条件的统计，但会计凭证的格式就是这样，不容有变，我试着把这3列数据列宽设为1，打开收款凭证_Table1，它还是每列都显示一个字，这样不行，试了很多了还是不行，不得不再请教，这种情况应如何处理？
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
Tables("收款凭证_Table1").FinishEditing '如果单元格处于编辑状态,需要结束编辑,让编辑内容写入单元格
For Each dt As DataRow In Tables("收款凭证_Table1").DataTable.Select("[字号] = '" & (e.Form.Controls("Label5").text).SubString(0,2) & "' And [日期] = #" & e.Form.Controls("rq").text & "# And [凭证号] = '" & e.Form.Controls("dh").text & "' And [贷方科目] Is not null")
Dim Parts() As String = dt("明细科目").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("明细科目")
dt("字号") = (e.Form.Controls("Label5").text).SubString(0,2)
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)
End If
End If
End If
End If
dt.Save
If dt.RowState <> DataRowState.Added Then
DataTables("收款凭证_Table1").SQLDeleteFor("[_Identify] = " & dt("_Identify"))
End If
Next
End If
DataTables("财务数据源").load
[此贴子已经被作者于2021/5/5 9:51:21编辑过]
加好友 
发短信
Post By：2021/4/29 18:01:00 [显示全部帖子]
