以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 多个条件一起过滤 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96926) |
-- 作者:k931931 -- 发布时间:2017/3/2 14:59:00 -- 多个条件一起过滤 老师你好,我退货入库单的上面入库单号字段弹窗,根据退货入库单单据上面的字段(目前有厂商和采购员两个字段)进行过滤,感觉有些繁琐, 麻烦老师给指教一下好的过滤代码。 Dim txt1 As String = e.Form.Controls("comboBox1").Text Dim tbl As Table = Tables("入库单父子表弹窗_Table1") If txt1 = "" Then tbl.Filter = "" Else txt1 = "\'%" & txt1 & "%\'" tbl.Filter = "厂商 Like " & txt1 End If Dim txt2 As String = e.Form.Controls("comboBox2").Text Dim tb2 As Table = Tables("入库单父子表弹窗_Table1") If txt2 = "" Then tb2.Filter = "" Else txt2 = "\'%" & txt2 & "%\'" tb2.Filter = "采购员 Like " & txt2 End If |
-- 作者:有点色 -- 发布时间:2017/3/2 15:42:00 -- 参考
http://www.foxtable.com/webhelp/scr/1058.htm
|
-- 作者:k931931 -- 发布时间:2017/3/2 23:01:00 -- 谢谢老师,已解决 |