Select Case e.StripItem.Name
Case "保存" '保存代码
Dim drs As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = '" & Forms("月租收费").Controls("dh").text & "' And ([已审核] = False Or [已审核] Is null)")
If e.Form.Controls("rq").text = "" Then
messagebox.show("请选择日期")
Return
ElseIf Tables("月租收费_Table1").Compute("Count([车牌号码])") = 0 Then
Return
ElseIf drs.count > 0 Then
For Each dr As DataRow In drs
Dim trs As List(of DataRow) = DataTables("月租收费_Table1").Select("[车牌号码] is not null")
For i As Integer = 1 To trs.count - 1
dr("缴费_月租_起计日期") = trs(i)("缴费_月租_起计日期")
dr("缴费_月租_止计日期") = trs(i)("缴费_月租_止计日期")
dr("缴费_月租_缴费月数") = trs(i)("缴费_月租_缴费月数")
dr("缴费_月租_月租单价") = trs(i)("缴费_月租_月租单价")
Next
Next
DataTables("缴费情况").SQLUpdate(drs)
DataTables("缴费情况").Load
ElseIf drs.count = 0 Then
For Each dt As DataRow In DataTables("月租收费_Table1").Select("[车牌号码] is not null")
Dim r As DataRow = DataTables("缴费情况").SQLFind("[车牌号码] = '" & dt("车牌号码") & "'And [单号] = '" & e.Form.Controls("dh").text & "' And ([已审核] = False Or [已审核] Is null)")
If r Is Nothing Then
r = DataTables("缴费情况").addnew
r("日期") = e.Form.Controls("rq").text
r("单号") = e.Form.Controls("dh").text
r("分类") = DataTables("分类").DataRows(0)("分类")
r("车牌号码") = dt("车牌号码")
r("备注") = dt("备注")
r("前缀") = "YZ"
r("缴费_月租_起计日期") = dt("缴费_月租_起计日期")
r("缴费_月租_止计日期") = dt("缴费_月租_止计日期")
r("缴费_月租_缴费月数") = dt("缴费_月租_缴费月数")
r("缴费_月租_月租单价") = dt("缴费_月租_月租单价")
r("录入员") = e.Form.Controls("lry").text
r("操作人姓名") = User.Name & " " & Date.Now
End If
Next
End If
DataTables("缴费情况").Save()