双击缴费情况表弹出窗口,然后通过窗口把缴费情况表中当前行单号相同的行显示到弹窗上,就象ERP中双击账上的行,弹出当前录入凭证,同一份凭证有很多行数据,因此定义dts行集合没错,因为只引用这部份行,现在的问题是如何定义弹出的窗口中的行,然后赋值,错误应该就出在这,你给出的
Dim r As DataRow = Forms("月租收费").Controls("Table1").Table.current.DataRow 能正确显示一行,显然不能只定义当前行,而应定义所有行,我一直问的就是这个。 |
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 Each dt As DataRow In dts
Dim r As DataRow = Forms("月租收费").Controls("Table1").Table.current.DataRow '这样定义只显示一行
'Dim r As DataRow = Forms("月租收费").Controls("Table1").Table.DataTable.DataRow '这是我错误的定义
r("车牌号码") = dt("车牌号码")
r("备注") = dt("备注")
r("缴费_月租_起计日期") = dt("缴费_月租_起计日期")
r("缴费_月租_止计日期") = dt("缴费_月租_止计日期")
r("缴费_月租_月租单价") = dt("缴费_月租_月租单价")
Next
End If
[此贴子已经被作者于2021/1/27 15:41:19编辑过]