- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求一段复选框筛选代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94230)
-- 发布时间：2016/12/19 14:39:00
-- 求一段复选框筛选代码
新手求助，需求如下图所示，谢谢老师。
此主题相关图片如下：qq图片20161219141819.png
-- 发布时间：2016/12/19 14:41:00
--
这是项目示例
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:过滤选择.foxdb |
-- 发布时间：2016/12/19 14:46:00
--
AfterCheckRow事件
Dim t1 As Table = e.Form.controls("Table1").Table
Dim t2 As Table = e.Form.controls("Table2").Table
Dim filter As String = "-1"
For Each r As Row In t1.GetCheckedRows
filter = filter & "," & r("id") & ""
Next
t2.Filter = "id in (" & filter & ")"
-- 发布时间：2016/12/19 16:13:00
--
以下是引用有点色在2016/12/19 14:46:00的发言：
AfterCheckRow事件
Dim t1 As Table = e.Form.controls("Table1").Table
Dim t2 As Table = e.Form.controls("Table2").Table
Dim filter As String = "-1"
For Each r As Row In t1.GetCheckedRows
filter = filter & "," & r("id") & ""
Next
t2.Filter = "id in (" & filter & ")"
谢谢！