主题：多选目录树

窗口

afterload事件

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinFor m.ComboBox
cmd.C
cmd.CommandText = "SELECT DISTINCT 发证机构,考试合格项目代号,焊工姓名 Fro m {焊工资质清单}"
dt = cmd.ExecuteReader()

Dim trv As WinFor m.TreeView = e.For m.Controls("TreeView1")
trv.BuildTree(dt,"发证机构|考试合格项目代号|焊工姓名")

 

dropdownopened事件

Dim trv As WinFor m.TreeView = e.For m.Controls("TreeView1")
For Each nd As WinFor m.TreeNode In trv.AllNodes
    nd.checked = False
Next

 

怎样能在考试合格项目代号节点勾选后，子节点焊工姓名全部自动勾选