Foxtable(狐表)用户栏目专家坐堂 → 查询问题


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

主题:查询问题

帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
查询问题  发帖心情 Post By:2019/4/2 12:31:00 [只看该作者]

老师,请问我这个代码怎么修改,我这里有个查询界面 想要在姓名框里输入一个字,就可以筛选出名字中带有这个字的人 请问代码需要怎么改

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20190402122606.png
图片点击可在新窗口打开查看


开始查询代码:
Dim Filter As String
With e.Form.Controls("计算机部门")
    If .Value IsNot Nothing Then
        Filter = "部门 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("IP地址")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "IP地址 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("外网")
    If .Value IsNot Nothing Then
        Filter = "外网 = '" & .Value & "'"
    End If
End With


Tables("主窗体_计算机查询表").Filter = Filter
If Tables("主窗体_计算机查询表").rows.count = 0 Then 
    MessageBox.Show("未找到该WIFI资料")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/2 13:03:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
  发帖心情 Post By:2019/4/2 13:18:00 [只看该作者]

老师,你推荐我参考的这个是组合框,我的是TEXTbox

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/2 14:42:00 [只看该作者]

把你的textbox改成combobox控件,才行。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/2 14:43:00 [只看该作者]

或者用dropbox,如

 

http://www.foxtable.com/webhelp/scr/2466.htm

 


 回到顶部