去除红色标注的代码,会把窗口中的空行都添加到缴费情况表,并不断弹出重复提示(有多少行空行就弹多少个窗口),我在缴费情况表加了不允许重复提示,在关窗口代码处亦写入了DataTables("缴费情况").DeleteFor("[车牌号码] is null "),但很扰人,我要求空行不添加到缴费情况表,只添加有数据的行,但写成这样依然报错:另不明白单号日期安行正常添加了,单号去只添加一行,问题出在哪?
'一.数据录入:
Select Case e.StripItem.Name
Case "保存" '保存代码
If e.Form.Controls("rq").text = "" Then
messagebox.show("请选择日期")
Return
ElseIf Tables("月租收费_Table1").Compute("Count([车牌号码])") = 0 Then
Return
ElseIf e.Form.Controls("dh").text = "" Then
Return '如果是,取消操作.
Else
For Each dt As Row In Tables("月租收费_Table1").Rows
Dim r As DataRow = DataTables("缴费情况").addnew
For i As Integer = 0 To Tables("月租收费_Table1").Compute("Count([车牌号码])") - 1
r("日期") = e.Form.Controls("rq").text
r("单号") = e.Form.Controls("dh").text
r("住址_巷") = dt(i)("住址_巷")
r("住址_号") = dt(i)("住址_号")
r("住址_房") = dt(i)("住址_房")
r("固定电话") = dt(i)("固定电话")
r("手机号码") = dt(i)("手机号码")
r("车牌号码") = dt(i)("车牌号码")
r("备注") = dt(i)("备注")
r("前缀") = "yz"
r("缴费_月租_起计日期") = dt(i)("缴费_月租_起计日期")
r("缴费_月租_止计日期") = dt(i)("缴费_月租_止计日期")
r("缴费_月租_月租单价") = dt(i)("缴费_月租_月租单价")
r("录入员") = e.Form.Controls("lry").text
Next
Next
End If
DataTables("缴费情况").Save()
Case "取消" '取消代码
e.Form.Close()
Case "删除" '删除代码
e.Form.Close()
DataTables("缴费情况").DeleteFor("[单号] =" & "'" & e.Form.Controls("dh") & "'")
End Select
[此贴子已经被作者于2021/1/11 22:16:59编辑过]