Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助][求助]有点蓝老师，单选框问题


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

主题：[求助][求助]有点蓝老师，单选框问题
帅哥哟，离线，有人找我吗？
tygzjsl
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1470 威望：0 精华：0 注册：2018/3/5 10:34:00 		[求助][求助]有点蓝老师，单选框问题  发帖心情 Post By：2019/1/30 16:29:00 [显示全部帖子]

看了很多论坛文章，单选框都是选择逻辑列，我这个是字符列，点选“理”单选框，就筛选出理的内容，点选“文”单选框，就筛选出文的内容，应该在那个事件中写代码，代码是怎么样的，又麻烦你了，谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190130162603.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/1/30 16:35:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
tygzjsl
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1470 威望：0 精华：0 注册：2018/3/5 10:34:00 		  发帖心情 Post By：2019/1/30 16:31:00 [显示全部帖子]

是筛选出表A符合理的内容，或符合文的内容

 回到顶部
帅哥哟，离线，有人找我吗？
tygzjsl
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1470 威望：0 精华：0 注册：2018/3/5 10:34:00 		  发帖心情 Post By：2019/1/30 17:42:00 [显示全部帖子]

非常感谢啊，没有筛选啊

 回到顶部
帅哥哟，离线，有人找我吗？
tygzjsl
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1470 威望：0 精华：0 注册：2018/3/5 10:34:00 		  发帖心情 Post By：2019/1/30 17:44:00 [显示全部帖子]

老师是用这行代码行吗
Tables("表A").Filter = "第三列 = '" & e.Sender.name.Replace("理","") & "'"
可也筛选不出来
 回到顶部
帅哥哟，离线，有人找我吗？
tygzjsl
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1470 威望：0 精华：0 注册：2018/3/5 10:34:00 		  发帖心情 Post By：2019/1/30 18:38:00 [显示全部帖子]

蓝老师，我用单选框控件名称“选择理科”然后在控件事件中加上这行代码，Tables("信息表").Filter = "理文 = '" & e.Sender.name.Replace("选择","") & "'"，好像可以，可是我是有一系列的条件筛选的，就不能一起组合筛选啦，代码如下，应该怎么加上去啊
Dim Filter As String = "1=1"
With e.Form.Controls("combobox6")
    If .Value IsNot Nothing Then
        
        Filter = Filter & " and 考试时间 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("combobox7")
    If .Value IsNot Nothing Then
        
        Filter = Filter & " and 班级 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("textbox11")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= "姓名 like '%" & s & "%' or "
        Next
        Filter &= " and (" & str.substring(0, str.length-4) & ")"
    End If
End With
Tables("查询表").Filter = Filter

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190130183942.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
tygzjsl
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1470 威望：0 精华：0 注册：2018/3/5 10:34:00 		  发帖心情 Post By：2019/1/30 21:32:00 [显示全部帖子]

甜老师，可那是逻辑列啊，我这个字符列，是一样的吗，谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
tygzjsl
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1470 威望：0 精华：0 注册：2018/3/5 10:34:00 		  发帖心情 Post By：2019/1/30 21:35:00 [显示全部帖子]

甜老师，那是逻辑列啊 ，和字符列一样吗，谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
tygzjsl
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1470 威望：0 精华：0 注册：2018/3/5 10:34:00 		  发帖心情 Post By：2019/1/31 9:48:00 [显示全部帖子]

甜老师，我这是字符列（列名理文），列值只有理科和文科两种，加在控件事件中用改这个代码是可以的，Tables("表A").Filter = "第三列 = '" & e.Sender.name.Replace("理","") & "'"
当然我用combobox控件也可以达到目的，我现在想用单选框，看看能不能达到效果，加到六楼的代码中能不能也达到效果，起到组合查询筛选的效果，能实现吗，具体怎么做，代码是怎样的，麻烦看看，先祝新春快乐，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
tygzjsl
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1470 威望：0 精华：0 注册：2018/3/5 10:34:00 		  发帖心情 Post By：2019/1/31 10:28:00 [显示全部帖子]

麻烦老师看看，我试试了很多次，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
tygzjsl
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1470 威望：0 精华：0 注册：2018/3/5 10:34:00 		  发帖心情 Post By：2019/1/31 10:35:00 [显示全部帖子]

怎么老是服务器出现问题，传上去了吗

 回到顶部
总数 29 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 5 次数据查询