Select Case e.DataCol.name
Case "车牌号码","单号"
Dim xh As String
Dim gg As String
If e.DataCol.Name= "车牌号码" Then
xh = e.NewValue
gg = e.DataRow("单号")
Else
gg = e.NewValue
xh = e.DataRow("车牌号码")
End If
If xh > "" AndAlso gg > "" Then
Dim dr As DataRow = e.DataRow
If e.DataTable.Find("车牌号码 = '" & xh & "' And 单号 = '" & gg & "'") IsNot Nothing Then
'MessageBox.Show("已经录入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
If e.Form.name = "月租收费"
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 dr0 As DataRow In drs
Dim trs As List(of DataRow) = DataTables("月租收费_Table1").Select("[车牌号码] is not null")
For i0 As Integer = 1 To trs.count - 1
dr0("缴费_月租_起计日期") = trs(i0)("缴费_月租_起计日期")
dr0("缴费_月租_止计日期") = trs(i0)("缴费_月租_止计日期")
dr0("缴费_月租_缴费月数") = trs(i0)("缴费_月租_缴费月数")
dr0("缴费_月租_月租单价") = trs(i0)("缴费_月租_月租单价")
Next
Next
End If
DataTables("缴费情况").SQLUpdate(drs)
DataTables("缴费情况").Load
ElseIf e.Form.name = "临时收费录入"
Dim drs1 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 drs1.count > 0 Then
For Each dr1 As DataRow In drs1
Dim trs1 As List(of DataRow) = DataTables("临时收费录入_Table1").Select("[车牌号码] is not null")
For i1 As Integer = 1 To trs1.count - 1
dr1("缴费_月租_起计日期") = trs1(i1)("缴费_月租_起计日期")
dr1("缴费_月租_止计日期") = trs1(i1)("缴费_月租_止计日期")
dr1("缴费_月租_缴费月数") = trs1(i1)("缴费_月租_缴费月数")
dr1("缴费_月租_月租单价") = trs1(i1)("缴费_月租_月租单价")
Next
Next
DataTables("缴费情况").SQLUpdate(drs1)
DataTables("缴费情况").Load
ElseIf e.Form.name = "其他收费录入"
Dim drs2 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 drs2.count > 0 Then
For Each dr2 As DataRow In drs2
Dim trs2 As List(of DataRow) = DataTables("其他收费录入_Table1").Select("[车牌号码] is not null")
For i2 As Integer = 1 To trs2.count - 1
dr2("缴费_月租_起计日期") = trs2(i2)("缴费_月租_起计日期")
dr2("缴费_月租_止计日期") = trs2(i2)("缴费_月租_止计日期")
dr2("缴费_月租_缴费月数") = trs2(i2)("缴费_月租_缴费月数")
dr2("缴费_月租_月租单价") = trs2(i2)("缴费_月租_月租单价")
Next
Next
DataTables("缴费情况").SQLUpdate(drs2)
DataTables("缴费情况").Load
End If
End If
'e.Cancel = True
End If
End If
End If
End Select
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:qq图片20210319145942.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2021-3/202131915143818227.png)