- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何在窗口里通过下拉复选框筛选多个条件集合 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32932)
-- 发布时间：2013/5/10 17:08:00
-- 如何在窗口里通过下拉复选框筛选多个条件集合
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.table |
此主题相关图片如下：123.jpg
各位狐神
我想做一个筛选的窗口，通过下拉选择条件，然后筛选出所有包含勾选中符号的行。这个筛选按钮的代码要如何做呢？求各位赐教
-- 发布时间：2013/5/10 17:14:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目4.table |
-- 发布时间：2013/5/10 18:04:00
--
大神
能不能多加一个复选框呢
筛选出符合1框并且符合B框条件的行?
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:复选筛选.table |
此主题相关图片如下：2222.jpg
-- 发布时间：2013/5/11 12:52:00
--
Dim str1 As String
Dim str2 As String
Dim flt As String
For Each s As String In e.Form.Controls("CheckedComboBox1").Text.split(",")
str1 =str1 & ",\'" & s & "\'"
Next
For Each s As String In e.Form.Controls("CheckedComboBox2").Text.split(",")
str2 =str2 & ",\'" & s & "\'"
Next
If str1 > "" Then
flt = "第二列 in (" & str1.trim(",") & ")"
End If
If str2 > "" Then
If str1 = "" Then
flt = "第三列 in (" & str2.trim(",") & ")"
Else
flt = Flt & "And 第三列 in (" & str2.trim(",") & ")"
End If
End If
Tables("表A").Filter = flt