Foxtable(狐表)用户栏目专家坐堂 → 【求助】查询代码


  共有1714人关注过本帖树形打印复制链接

主题:【求助】查询代码

美女呀,离线,留言给我吧!
yezhang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:221 威望:0 精华:0 注册:2016/7/26 17:26:00
【求助】查询代码  发帖心情 Post By:2016/7/28 10:49:00 [显示全部帖子]

输入不同的列的内容进行查询,如用户姓名列的张三或者是用户地址列的上海(输入张三时显示张三的信息;输入上海时,显示所有地址在上海的用户信息)

 回到顶部
美女呀,离线,留言给我吧!
yezhang
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:221 威望:0 精华:0 注册:2016/7/26 17:26:00
  发帖心情 Post By:2016/7/28 11:08:00 [显示全部帖子]

在同一个文本框中输入,输入内容不同时,显示不同的结果

 回到顶部
美女呀,离线,留言给我吧!
yezhang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:221 威望:0 精华:0 注册:2016/7/26 17:26:00
  发帖心情 Post By: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

这个代码只能输入列F220的内容进行查找,我想把它改成可以在TextBox1输入其他列的内容然后查找


图片点击可在新窗口打开查看此主题相关图片如下:z$y$sexr%s8c)1ezpu3j3~r.png
图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
yezhang
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:221 威望:0 精华:0 注册:2016/7/26 17:26:00
  发帖心情 Post By:2016/7/28 11:24:00 [显示全部帖子]

可以了,非常感谢!!!

 回到顶部
美女呀,离线,留言给我吧!
yezhang
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:221 威望:0 精华:0 注册:2016/7/26 17:26:00
  发帖心情 Post By:2016/7/28 11:27:00 [显示全部帖子]

好,我试试,谢谢!

 回到顶部