帮助文档中最简单的筛选树,出现了个问题,当我的表设置了“显示复选框”之后,然后我在筛选选择分类,并进行多选的时候,实际只能选中最后一个,只有在“显示所有行”的时候,才能多选。要怎么改才能达到点击分类之后的复选都能被选中?比如: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()