-- AfterLoad
提示找不到列“制单ID”,为什么?
窗口的AfterLoad:
If Forms("窗口").Opened Then
Tables("窗口_Table1").Fill("Select outid as 制单ID Fr om PQ_OutID","dingbang",True)
Tables("窗口_Table2").Fill("Select upid as 制单ID fr om PQ_Out_List","dingbang",True)
End If
Tables("窗口_Table1")的CurrentChanged:
Dim tbl1 As Table=Tables("窗口_table1")
Dim tbl2 As Table=Tables("窗口_Table2")
With tbl1
If tbl1.current Is Nothing Then
tbl2.Filter = "False"
Else
tbl2.Filter = "制单ID = \'" & tbl1.current("制单ID") & "\'"
End If
End With