这样写筛选
Tables("表A").Filter = IIF(Tables("表A").Filter>"", Tables("表A").Filter, "1=1") & " And [订单编号] Like 'zqq*'"