- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- CheckedList 添加多项 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115329)
-- 发布时间：2018/3/5 14:15:00
-- CheckedList 添加多项
专家，你好。
我设置了一个CheckedListBox，然后在确认按钮实现，所有打勾的项目添加在表 （检测项目信息表.项目测试进度表） 里的测试项目列。
这个按钮如何写代码？谢谢。。。
此主题相关图片如下：qq图片20180305141426.png
-- 发布时间：2018/3/5 14:45:00
--
Tables("表名").Filter = "某列 in (\'" & e.form.controls("控件名").value.replace(",", "\',\'") & "\')"
-- 发布时间：2018/3/5 15:03:00
--
你好。我需要的功能不是筛选。
是在（检测项目信息表.项目测试进度表）表里添加打勾的测试项目。
-- 发布时间：2018/3/5 15:24:00
--
Dim str = e.form.controls("控件名").value
If str > "" Then
Dim ary() = str.split(",")
For Each s As String In ary
Dim nr As Row = Tables("表名").addnew
nr("某列") = s
Next
End If