编写 currentChanged 事件
If Forms("xxx").Opened Then
Forms("xxx").Controls("Table1").Table.Filter = "订单号 = " & e.Table.current("订单号")
End If