以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [HELP ] 想在己 筛选 的表中的结果， 再进行二次筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125148)
--  作者：terry123e
--  发布时间：2018/9/20 21:30:00
--  [HELP ] 想在己 筛选 的表中的结果， 再进行二次筛选
你好老师，

要求： 在己筛选 的表中的结果中，  再进行二次筛选   。。。 但是入了 下边的CODE  便以下边的条件重新筛选 ，第一次筛选的结果没有了。请问如何解决？ 谢谢

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("POS_TRANSACTION")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "item_cdesc Like " & txt 
End If
--  作者：有点甜
--  发布时间：2018/9/20 21:37:00
--  
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("POS_TRANSACTION")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = iif(tbl.filter>"", "(" & tbl.filter & ") and ", "") & "item_cdesc Like " & txt 
End If