- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 【求助】查询代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88170)
-- 发布时间：2016/7/28 10:49:00
-- 【求助】查询代码
输入不同的列的内容进行查询，如用户姓名列的张三或者是用户地址列的上海（输入张三时显示张三的信息；输入上海时，显示所有地址在上海的用户信息）
-- 发布时间：2016/7/28 10:53:00
--
窗口查询：http://www.foxtable.com/webhelp/scr/1058.htm
-- 发布时间：2016/7/28 11:08:00
--
在同一个文本框中输入，输入内容不同时，显示不同的结果
-- 发布时间：2016/7/28 11:12:00
--
dim
-- 发布时间：2016/7/28 11:15:00
--
Dim txt As String = e.Form.Controls("TextBox1").Text
Tables("表A").Filter = CExp("第一列=\'{0}\' or 第二列=\'{0}\' or 第三列=\'{0}\'",txt)
-- 发布时间：2016/7/28 11:20:00
--
以下内容为程序代码:
1 Dim Filter As String
2 With e.Form.Controls("TextBox1")
3 If .Value IsNot Nothing Then
4 Filter = "F220 = \'" & .Value & "\'"
5 End If
6 End With
7 If Filter ＞ "" Then
8 Tables("T26").Filter = Filter
9 End If
1 Dim Filter As String
2 With e.Form.Controls("TextBox1")
3 If .Value IsNot Nothing Then
4 Filter = "F220 = \'" & .Value & "\'"
5 End If
6 End With
7 If Filter ＞ "" Then
8 Tables("T26").Filter = Filter
9 End If
这个代码只能输入列F220的内容进行查找，我想把它改成可以在TextBox1输入其他列的内容然后查找
此主题相关图片如下：z$y$sexr%s8c)1ezpu3j3~r.png
-- 发布时间：2016/7/28 11:24:00
--
可以了，非常感谢！！！
-- 发布时间：2016/7/28 11:25:00
--
Filter = CExp("F220 =\'{0}\' or F221=\'{0}\' or F222=\'{0}\'",.Value )
或者查询窗口增加一个选择列的控件
-- 发布时间：2016/7/28 11:27:00
--
好，我试试，谢谢！