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