打开窗口之前,设置代码
vars("行") = e.row
forms("窗口").show
窗口afterLoad事件,写代码
if vars("行") isnot nothing Then
msgbox(1)
datatables("表A").loadfilter = "成品编码='" & vars("行")("成品编码") & "' and 入库类型='B类' and 成品去向='已出库'"
datatables("表A").load
End If