此主题相关图片如下:222.jpg
窗口的CurrentChanged是不是要修改代码
If Tables("销售查询_Table1").Rows.Count > 0 Then Tables("销售查询_Table2").Filter = "订单号 = '" & Tables("销售查询_Table1").Current("订单号") & "'"End If