以文本方式查看主题

-  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=18641)
--  作者：amanda123
--  发布时间：2012/4/19 15:44:00
--  [求助]关于在窗体界面中筛选的问题
我提参照“自定义录入界面之一”中的方法在窗口界面中实现筛选功能的：将TextBox1的TextChanged事件代码设为:

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else项
    txt = "\'*" & txt & "*\'"
    tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If

我现在的问题是：首先输入“电子”在界面中筛选出公司名称中含有“电子”的记录，然后，再输入“广州”时，希望在这个基础上筛选出地址在广州的电子公司。请问该如何实现？
--  作者：blackzhu
--  发布时间：2012/4/19 16:03:00
--  
输入电子广州不行吗?
--  作者：amanda123
--  发布时间：2012/4/19 16:13:00
--  
我只是举个例子，是希望输入第二个条件时，能在第一个条件筛选出来的记录中筛选。
--  作者：blackzhu
--  发布时间：2012/4/19 16:38:00
--  
输入的查询数据越完整,筛选出来的数据就越细.明白不?
--  作者：程兴刚
--  发布时间：2012/4/19 17:30:00
--  
很简单的问题，别搞那么复杂，发文件！
--  作者：狐狸爸爸
--  发布时间：2012/4/19 18:03:00
--  
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt > "" Then
    txt = "\'*" & txt & "*\'"
    txt =  "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
    If tbl.Filter = "" Then
        tbl.filter = txt
    Else
        tbl.filter = tbl.filter & " And (" & txt & ")"
    End If
End If