Case "保存" '保存代
If e.Form.Controls("rq").text = "" Then
messagebox.show("请选择日期")
Return
ElseIf Tables("出纳录入收款数据_Table1").Compute("Count([借方_金额])") = 0 Then
Return
Else
e.Form.Controls("lblState").text = "2"
Tables("出纳录入收款数据_Table1").FinishEditing '如果单元格处于编辑状态,需要结束编辑,让编辑内容写入单元格
For Each dt As DataRow In Tables("出纳录入收款数据_Table1").DataTable.Select("[借方_金额] Is not null")
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
If e.Form.Controls("shr").text = Nothing Then
dt("审核人") = Nothing
Else
dt("审核人") = e.Form.Controls("shr").text
End If
dt("前辍") = (e.Form.Controls("TextBox2").text).SubString(0,2)
dt("操作人姓名") = User.Name & " " & Date.Now
If e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(1) Then
dt("外币贷方金额") = dt("外币金额")
End If
Dim Parts0() As String = (e.Form.Controls("ComboBox3").Value).Split("-")
If Parts0.length > 0 Then
dt("会计科目") = Parts0(0)
If Parts0.length > 1 Then
dt("明细科目") = Parts0(1)
End If
End If
dt.Save
Next
End If
DataTables("出纳数据记账源").load
End Select
加好友 
发短信
Post By：2021/8/30 16:43:00 [只看该作者]
此主题相关图片如下：qq图片20210830163304.png
