- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]用文本框查询信息 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42816)
-- 发布时间：2013/11/22 19:04:00
-- [求助]用文本框查询信息
我想在窗口文本框里输入部分字或部分内容,点击查询按扭,即能查到窗口表中含此字或含此部分内容的全部信息,请求代码如何写,谢谢!!!
-- 发布时间：2013/11/22 19:10:00
--
可以先看下这个例子
-- 发布时间：2013/11/22 20:52:00
--
刚才照样子试了一下,很好,但是就是不能筛选出含有部分字符的信息,还请高手指点,谢谢!!!
-- 发布时间：2013/11/22 20:53:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目7.table |
现在我把项目上传,请修改,谢谢!!!
-- 发布时间：2013/11/22 20:54:00
--
含有部分是什么意思？可以模糊筛选的哦，例如 xxx列 like \'*部分*\'
你是想实现怎样的“含有部分”？
-- 发布时间：2013/11/22 21:03:00
--
那部分列怎么筛选呢(如第一列)?
-- 发布时间：2013/11/22 21:12:00
--
Dim Filter As String
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
Filter = "第一列 like \'*" & .Value & "*\'"
End If
End With
If Filter > "" Then
Tables("表A").Filter = Filter
End If
-- 发布时间：2013/11/22 21:25:00
--
非常好,但是我想如果对第一列、第二列、第三列等列中只要含有部分字符内容的信息全部显示出来，那代码如何写呢，请指教，谢谢！！！
-- 发布时间：2013/11/22 21:39:00
--
代码如下
Dim cs() As String = {"第一列", "第二列", "第三列"}
Dim Filter As String
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
For Each c As String In cs
Filter += c & " Like \'*" & .Value & "*\' or "
Next
End If
filter = filter.SubString(0, filter.Length - 3)
End With
If Filter > "" Then
Tables("表A").Filter = Filter
End If
-- 发布时间：2013/11/22 21:48:00
--
太棒了，非常感谢！！！