贺老师,让楼主带沟里了吧,直接这样无需判断也可以吧:
Dim Filter As StringFilter = " 尽机= False And 上机=True" Tables("经轴流程").Filter = Filter