以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口中的表筛选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=135058)
--  作者：5301zsz
--  发布时间：2019/5/16 0:05:00
--  [求助]窗口中的表筛选
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:窗口中的表.rar

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

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
--  作者：有点甜
--  发布时间：2019/5/16 8:40:00
--  

把你的控件名称写正确

 

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
--  作者：5301zsz
--  发布时间：2019/5/16 9:48:00
--  
好，谢谢老师！