- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助][求助]有点蓝老师，单选框问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130736)
-- 发布时间：2019/1/30 16:29:00
-- [求助][求助]有点蓝老师，单选框问题
看了很多论坛文章，单选框都是选择逻辑列，我这个是字符列，点选“理”单选框，就筛选出理的内容，点选“文”单选框，就筛选出文的内容，应该在那个事件中写代码，代码是怎么样的，又麻烦你了，谢谢！
此主题相关图片如下：微信截图_20190130162603.jpg
[此贴子已经被作者于2019/1/30 16:35:33编辑过]
-- 发布时间：2019/1/30 16:31:00
--
是筛选出表A符合理的内容，或符合文的内容
-- 发布时间：2019/1/30 17:25:00
--
CheckedChanged事件
If e.Sender.Checked = True
Tables("A1").Filter = "第一列=\'" & e.Sender.Text & "\'"
End If
-- 发布时间：2019/1/30 17:42:00
--
非常感谢啊，没有筛选啊
-- 发布时间：2019/1/30 17:44:00
--
老师是用这行代码行吗
Tables("表A").Filter = "第三列 = \'" & e.Sender.name.Replace("理","") & "\'"
可也筛选不出来
-- 发布时间：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
-- 发布时间：2019/1/30 21:27:00
--
参考
http://www.foxtable.com/webhelp/scr/1058.htm
-- 发布时间：2019/1/30 21:32:00
--
甜老师，可那是逻辑列啊，我这个字符列，是一样的吗，谢谢！
-- 发布时间：2019/1/30 21:35:00
--
甜老师，那是逻辑列啊 ，和字符列一样吗，谢谢！
-- 发布时间：2019/1/30 22:31:00
--
认认真真看，有逻辑列啊
http://www.foxtable.com/webhelp/index.htm?page=1058.htm