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
For Each tr As DataRow In DataTables("月租收费_Table1").Select("[车牌号码] is not null")
Dim dr As DataRow = DataTables("缴费情况").SQLFind("[单号] = '" & e.Form.Controls("dh").text & "' And ([已审核] = False Or [已审核] Is null)") '将窗口上的数据刷新替换保存到缴费情况表上,
If dr IsNot Nothing Then
dr("日期") = e.Form.Controls("rq").text
dr("单号") = e.Form.Controls("dh").text
dr("分类") = DataTables("分类").DataRows(0)("分类")
dr("备注") = tr("备注")
dr("前缀") = "YZ"
dr("缴费_月租_起计日期") = tr("缴费_月租_起计日期")
dr("缴费_月租_止计日期") = tr("缴费_月租_止计日期")
dr("缴费_月租_缴费月数") = tr("缴费_月租_缴费月数")
dr("缴费_月租_月租单价") = tr("缴费_月租_月租单价")
dr("缴费_月租_缴费金额") = tr("缴费_月租_缴费金额")
dr.save
ElseIf dr Is Nothing Then
dr = DataTables("缴费情况").addnew
dr("日期") = e.Form.Controls("rq").text
dr("单号") = e.Form.Controls("dh").text
dr("分类") = DataTables("分类").DataRows(0)("分类")
dr("车牌号码") = tr("车牌号码")
dr("备注") = tr("备注")
dr("前缀") = "YZ"
dr("缴费_月租_起计日期") = tr("缴费_月租_起计日期")
dr("缴费_月租_止计日期") = tr("缴费_月租_止计日期")
dr("缴费_月租_缴费月数") = tr("缴费_月租_缴费月数")
dr("缴费_月租_月租单价") = tr("缴费_月租_月租单价")
dr("缴费_月租_缴费金额") = tr("缴费_月租_缴费金额")
dr("录入员") = e.Form.Controls("lry").text
dr("操作人姓名") = User.Name & " " & Date.Now
dr.save
End If
Next
DataTables("缴费情况").Load
End If
Case "取消" '取消代码
e.Form.Close()
Case "删除已保存单据" '删除代码
e.Form.Close()
Dim Result As DialogResult
Result = MessageBox.Show("是否确定要删除此单?","提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables("缴费情况").DeleteFor("[单号] =" & "'" & e.Form.Controls("dh").text & "'")
Else
Return
End If
End Select
加好友 
发短信
Post By：2021/3/23 15:18:00 [显示全部帖子]
