主题：窗口中点击两次按钮过滤才能起作用

加入msgbox看看

Forms("订单修改").open

msgbox(1)
If Forms("销售主界面").opened AndAlso Tables("销售主界面_Table2").current IsNot Nothing Then

msgbox(2)
    Tables("销售订单").Filter = "订单号 = '" &  Tables("销售主界面_Table2").Current("订单号") & "'"
Else

msgbox(Forms("销售主界面").opened)

msgbox(Tables("销售主界面_Table2").current isnot nothing)
    Tables("销售订单").Filter = " "
End If