以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多个条件一起过滤  (http://foxtable.com/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

图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看



--  作者:有点色
--  发布时间:2017/3/2 15:42:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1058.htm

 


--  作者:k931931
--  发布时间:2017/3/2 23:01:00
--  
谢谢老师,已解决