- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：复选组合框过滤代码要怎么写? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94469)
-- 发布时间：2016/12/24 11:35:00
-- 求助：复选组合框过滤代码要怎么写?
我想通过复选组合框，进行多选内容，再过滤，比如下图中，我要过滤出符合“新建”与“审核”甚至这2个以上的条件的记录，这个过滤按钮代码要怎么写呀？
此主题相关图片如下：qq图片20161224113000.png
谢谢！
-- 发布时间：2016/12/24 11:42:00
--
Tables("表名").filter = “状态 in (\'新建\',\'审核\')”
http://www.foxtable.com/webhelp/scr/0102.htm
http://www.foxtable.com/webhelp/scr/1647.htm
-- 发布时间：2016/12/24 11:44:00
--
Tables("表名").filter = “状态 in (\'" & e.form.Controls("Textbox1").Text.Repalce("," , "\',\'") & "\')”
-- 发布时间：2016/12/24 11:50:00
--
以下是引用狐狸爸爸在2016/12/24 11:42:00的发言：
Tables("表名").filter = “状态 in (\'新建\',\'审核\')”
Tables("表名").filter = “状态 in (\'新建\',\'审核\')”
http://www.foxtable.com/webhelp/scr/0102.htm
我是这样写的:
Dim a As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Tables("B表").Filter = "状态 in ( \'" & a.Text & "\')"
但是最终的执行条件是“ 状态 in (新建，审核) ” ，而不是“ 状态 in (\'新建\'，\'审核\') ” ,后面这个执行就是对的了,这个要怎么转换过来呢?
-- 发布时间：2016/12/24 12:04:00
--
自己找到答案了,谢谢!
Tables("B表").Filter = "状态 in (\'" & s.Replace(",", "\',\'") & "\')"