主题：多选目录树窗口问题

窗口afterload事件

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim cmb As WinFor m.ComboBox

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

click事件

Dim s As String = ""m.TreeNode In trv.AllNodes

    If nd.Checked Then

        s = s & "," & nd.Text

    End If

Next

e.For m.DropDownBox.Value = s.trim(",")

e.For m.DropDownBox.CloseDropdown

afteroperproject事件

Tables("焊接工艺卡清单").Cols("焊接方法一_所需焊接资质").DropFor m  = "所需焊接资质项目代号"

Tables("焊接工艺卡清单").Cols("焊接方法二_所需焊接资质").DropFor m  = "所需焊接资质项目代号"

Tables("焊接工艺卡清单").Cols("焊接方法三_所需焊接资质").DropFor m  = "所需焊接资质项目代号"

不知道哪里有问题，窗口有时会不显示，总要把项目事件中afteroperproject重新打开一遍才可以！