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

把你的控件名称写正确

Dim Filter As String
With e.Form.Controls("textbox1")
    If .Value IsNot Nothing Then
        Filter = "销售类别 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("合同订单评审与生产通知单_table3").Filter = Filter
End If