这个窗口的AfterLoad事件改为:
Dim t As Table = Tables("订单表关联窗口_Table1")
Dim t1 As Table = Tables("订单表关联窗口_Table2")
With Tables("订单表")
If .Current Is Nothing Then
t.Filter = "False"
t1.Filter = "False"
Else
t.Filter = "订单号 = '" & .Current("订单号") & "'"
t1.Filter = "订单号 = '" & .Current("订单号") & "'"
End If
End With
建议你看看:
http://www.foxtable.com/help/topics/1284.htm