以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助][原创]我想做成模糊筛选,要更改那个参数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91007) |
-- 作者:77611471 -- 发布时间:2016/9/27 14:36:00 -- [求助][原创]我想做成模糊筛选,要更改那个参数 Dim Filter As String With e.Form.Controls("TextBox1") If .Value IsNot Nothing Then Filter ="产品编号 Like \'" & .Value & "*\'" End If End With With e.Form.Controls("TextBox2") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "订单编号 Like \'" & .Value & "*\'" End If End With If Filter > "" Then Tables("工时成本表").Filter = Filter End If
|
-- 作者:有点蓝 -- 发布时间:2016/9/27 15:12:00 -- Filter ="产品编号 Like \'%" & .Value & "%\'" Filter = Filter & "订单编号 Like \'%" & .Value & "%\'"
|