- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 使用筛选树之后的复选问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161403)
-- 发布时间：2021/3/16 15:29:00
-- 使用筛选树之后的复选问题
帮助文档中最简单的筛选树，出现了个问题，当我的表设置了“显示复选框”之后，然后我在筛选选择分类，并进行多选的时候，实际只能选中最后一个，只有在“显示所有行”的时候，才能多选。要怎么改才能达到点击分类之后的复选都能被选中？
比如：afterload事件
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("订单表", "订单类型")
trv.Nodes.Insert("显示所有行",0)
筛选树nodemouseclick事件
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[订单类型] = \'" & dr("订单类型") & "\'"
End Select
End If
Tables("订单_选择_table1").Filter = Filter
导入数据要点击的按钮事件
For Each dr1 As Row In Tables("订单_选择_table1").GetCheckedRows
Dim dr2 As Row = Tables("订单").AddNew() \'以下三行把读到的记录按字段对应关系写入新表
dr2("订单编号") = dr1("订单编号")
dr2("订单名称") = dr1("订单名称")
dr2("订单类型") = dr1("订单类型")
Tables("订单_选择_table1").ClearCheckedRows
Next
e.Form.Close()
-- 发布时间：2021/3/16 15:32:00
--
导入数据要点击的按钮事件
For Each dr1 As Row In Tables("订单_选择_table1").GetCheckedRows
Dim dr2 As Row = Tables("订单").AddNew() \'以下三行把读到的记录按字段对应关系写入新表
dr2("订单编号") = dr1("订单编号")
dr2("订单名称") = dr1("订单名称")
dr2("订单类型") = dr1("订单类型")
Next
Tables("订单_选择_table1").ClearCheckedRowse.Form.Close()
-- 发布时间：2021/3/16 15:54:00
--
蓝老师，调整程序的顺序之后，仍然是只能选中一个............
-- 发布时间：2021/3/16 16:00:00
--
请上传实例说明
-- 发布时间：2021/3/16 17:04:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:筛选树多选.table |
蓝老师好，项目已经上传，
-- 发布时间：2021/3/16 17:12:00
--
没有问题呀，勾选3个，然后导入3行
此主题相关图片如下：1.png
-- 发布时间：2021/3/16 18:01:00
--
不是啊！蓝老师！我的意思是先筛选，再选择多个。
比如，您先点“白酒”，然后选一个，然后再点“红酒”，再选一个，然后再点“黄酒”，再选一个，然后点确定加载数据，就是只能导入最后一个。
-- 发布时间：2021/3/16 20:18:00
--
table的复选框仅对当前显示的行有效，筛选后之前的选择就无效了。如果要这样，建议增加一个临时的逻辑列进行勾选，不要使用复选框
-- 发布时间：2021/3/16 21:25:00
--
明白了！谢谢蓝老师的指点，感恩
