以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问如何在【窗口设计器里】添加筛选功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49971)
--  作者：迷糊咖啡厅
--  发布时间：2014/4/26 20:18:00
--  请问如何在【窗口设计器里】添加筛选功能


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

我想输入【关键字】，然后筛选【指定列】中【包含的】项目

研究了很长时间，不知道应该怎么弄这个搜索的功能……

求指教……
--  作者：迷糊咖啡厅
--  发布时间：2014/4/26 20:40:00
--  
目前，我点【搜索】会弹出一个输入【查找的名称】窗口
请问，如何指定特定的列？
Syscmd.Filter.Contains()
--  作者：有点甜
--  发布时间：2014/4/27 10:45:00
--  

 这个很简单，直接设置 Tables("xxx").Filter = "xxx"

 

 就可以了。参考 http://www.foxtable.com/help/topics/1058.htm

 
--  作者：迷糊咖啡厅
--  发布时间：2014/4/27 23:32:00
--  
Dim Filter As String
With e.Form.Controls("sousuo01")
    If .Value IsNot Nothing Then
        Filter = "中文 = \'" & .Value & "\'"
    End If
End With
If Filter > "" Then
    Tables("全物品").Filter = Filter
End If

---------------------------
这个代码只能筛选到一模一样的文字
请问，如果想弄成 包含，应该怎么改这个代码呀？
--  作者：狐狸爸爸
--  发布时间：2014/4/28 7:56:00
--  
Dim Filter As String
With e.Form.Controls("sousuo01")
    If .Value IsNot Nothing Then
        Filter = "中文 Like \'%" & .Value & "%\'"
    End If
End With
If Filter > "" Then
    Tables("全物品").Filter = Filter
End If
 
 
--  作者：有点甜
--  发布时间：2014/4/28 9:16:00
--  

 这样改一下，或许更好

 

Dim Filter As String = ""
With e.Form.Controls("sousuo01")
    If .Value IsNot Nothing Then
        Filter = "中文 like \'*" & .Value & "*\'"
    End If
End With
 
Tables("全物品").Filter = Filter
--  作者：迷糊咖啡厅
--  发布时间：2014/4/28 23:58:00
--  
谢谢
--  作者：迷糊咖啡厅
--  发布时间：2014/4/28 23:58:00
--  
帮大忙了，太感谢了