表A CurrentChanged事件
If e.Table.current IsNot Nothing Then If Forms("窗口1").Opened Tables("窗口1_Table1").Filter = "列A = '" & e.Table.Current("列A") & "'" End IfEnd If