table2新增行，为什么不能即刻显示对应table1到货单据号的行，要点一下窗口table表1，table2的行才显示
CurrentChanged:
If Forms("到货物检").Opened()
Dim t As Table = Tables("到货物检_table2")
Dim d As Table = Tables("到货物检_table1")
If d.Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "到货单据号 = '" & d.Current("到货单据号") & "' "
End If
End If
新增行：
Dim tbl As Table = Tables("选择采购订单_Table1")
Dim tbl2 As Table = Tables("到货物检_Table2")
Dim tbl1 As Table = Tables("到货物检_Table1")
For i As Integer=tbl.BottomPosition To tbl.TopPosition Step -1
Dim dr As Row = tbl2.AddNew
dr("到货单据号")=tbl1.current("到货单据号")
Next
加好友 
发短信
Post By：2018/11/19 9:34:00 [只看该作者]
