主题：[求助]窗口中的表筛选

蓝老师您好：窗口中的表无法查询毛坯的所有订单项，不知是否可以打开生产计划表时的合同订单评审与生产通知单自动筛选出是毛坯的所有项。

Dim Filter As String

With e.Form.Controls("销售类别")

    If .Value IsNot Nothing Then

        Filter = "销售类别 = '" & .Value & "'"

    End If

End With

If Filter > "" Then

    Tables("合同订单评审与生产通知单_table3").Filter = Filter

End If