Dim Filter As String
...
....
Tables("窗口1_Table1").Filter = Filter
Tables("订单").Filter = Filter
是这样吗?