Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问狐表能否在一个文本框中实现多个条件的筛选？


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

主题：请问狐表能否在一个文本框中实现多个条件的筛选？
美女呀，离线，留言给我吧！
Phoebe菲比
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：158 积分：998 威望：0 精华：0 注册：2021/8/17 15:39:00 		请问狐表能否在一个文本框中实现多个条件的筛选？  发帖心情 Post By：2022/4/1 20:49:00 [显示全部帖子]

这个是我的需求，我想在一个文本框中输入属于不同列的值，能自动检索。
帮助文档里的筛选是根据一个控件名称筛选一个列，这样我需要创造多个不同控件。
请大佬给点思路。
图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20220401204723.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
Phoebe菲比
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：158 积分：998 威望：0 精华：0 注册：2021/8/17 15:39:00 		  发帖心情 Post By：2022/4/2 9:22:00 [显示全部帖子]

测试出来的结果好像不大行。
请问这段代码属于帮助文档的哪块内容呢？
我想研究一下。
图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20220402092105.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
Phoebe菲比
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：158 积分：998 威望：0 精华：0 注册：2021/8/17 15:39:00 		  发帖心情 Post By：2022/4/2 9:32:00 [显示全部帖子]

暂时用的是单条件查询的代码。想请大佬们给个思路。
以下是我写的代码：

Dim filter As String
Dim sts() As String = {"项目名称","项目编号"}      '按这样写我需要设置两个控件。     
For Each st As String In sts 
    Dim val As String = e.Form.Controls(st).value
    If val IsNot Nothing Then
        If filter Is Nothing Then
            filter = st & " like '%" & val & "%'"
        Else
            filter = filter & " and " & st & " like '%" & val & "%'"
        End If
    End If
Next
 回到顶部
美女呀，离线，留言给我吧！
Phoebe菲比
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：158 积分：998 威望：0 精华：0 注册：2021/8/17 15:39:00 		  发帖心情 Post By：2022/4/2 10:03:00 [显示全部帖子]

列值。
用一个控件，检索包含三个列的值。
 回到顶部
美女呀，离线，留言给我吧！
Phoebe菲比
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：158 积分：998 威望：0 精华：0 注册：2021/8/17 15:39:00 		  发帖心情 Post By：2022/4/2 10:16:00 [显示全部帖子]

不是的。我的想法是，比如我想通过在控件“文本框”输入值查找“建设单位”、“总包单位”、“设计单位”、“勘查单位”、“监理单位”等五列的值，输入任一列的值，都能在表中查找到相应的数据。   我把这理解成一对多。
目前我在帮助文档和开发宝典里找到的参考，一个控件输入的值对应只能查找一个列，或者一个列的多个不同值。  我把这理解成一对一。

请问一对多的查询要怎么实现？
 回到顶部
美女呀，离线，留言给我吧！
Phoebe菲比
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：158 积分：998 威望：0 精华：0 注册：2021/8/17 15:39:00 		  发帖心情 Post By：2022/4/2 10:44:00 [显示全部帖子]

目前写了这样一段代码，把控件名称改成控件值，但是系统会提示我有一个参数没有被赋值。
Dim filter As String
Dim sts() As String = {"建设单位","设计单位"}
For Each st As String In sts
    Dim val As String = e.Form.Controls("TextBox2筛选").Value
    If val IsNot Nothing Then
        If filter Is Nothing Then
            filter = st & " like '%" & val & "%'"
        Else
            filter = filter & " or " & st & " like '%" & val & "%'"
        End If
    End If
Next

msgbox(filter)
 回到顶部
美女呀，离线，留言给我吧！
Phoebe菲比
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：158 积分：998 威望：0 精华：0 注册：2021/8/17 15:39:00 		  发帖心情 Post By：2022/4/2 10:46:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20220402104528.png
图片点击可在新窗口打开查看
这是目前的状况
图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20220402104455.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
Phoebe菲比
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：158 积分：998 威望：0 精华：0 注册：2021/8/17 15:39:00 		  发帖心情 Post By：2022/4/2 10:48:00 [显示全部帖子]

这是我想实现的功能。
图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20220402104716.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
Phoebe菲比
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：158 积分：998 威望：0 精华：0 注册：2021/8/17 15:39:00 		  发帖心情 Post By：2022/4/2 11:10:00 [显示全部帖子]

嗯 是的。我在帮助文档里没有找到类似的说明，自己也想不出来。

 回到顶部
美女呀，离线，留言给我吧！
Phoebe菲比
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：158 积分：998 威望：0 精华：0 注册：2021/8/17 15:39:00 		  发帖心情 Post By：2022/4/2 11:13:00 [显示全部帖子]

测试成功了，谢谢蓝版。
图片点击可在新窗口打开查看
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 5 次数据查询