定义窗口表中的行怎么写啊？应该是红色代码错了。
If e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_月租_缴费金额") Then
Forms("临时收费录入").Open()
ElseIf e.Row.IsNull("车牌号码") = False AndAlso e.Row.IsNull("缴费_临时停放_缴费金额") Then
Forms("月租收费").Open()
Forms("月租收费").Controls("rq").text = e.Row("日期")
Forms("月租收费").Controls("dh").text = e.Row("单号")
Forms("月租收费").Controls("lry").text = e.Row("录入员")
Forms("月租收费").Controls("shr").text = e.Row("审核人")
Dim dts As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = '" & e.Row("单号") & "'")
For i As Integer = 0 To dts.count - 1
Dim r As Row = Forms("月租收费").Controls("Table1").Table.Row
r("车牌号码") = dts(i)("车牌号码")
r("备注") = dts(i)("备注")
r("缴费_月租_起计日期") = dts(i)("缴费_月租_起计日期")
r("缴费_月租_止计日期") = dts(i)("缴费_月租_止计日期")
r("缴费_月租_月租单价") = dts(i)("缴费_月租_月租单价")
i + = 1
Next
End If
加好友 
发短信
Post By：2021/1/27 13:41:00 [只看该作者]
