主题：多选目录树

比如

Dim s1 As String = ""
Dim s2 As String = ""
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        If nd.Level = 1 Then
            e.Form.DropTable.Current("发证机构") = nd.ParentNode.Text
            s1 = s1 & "," & nd.Text
        ElseIf nd.Level = 2 Then
            s2 = s2 & "," & nd.Text
        End If
    End If
Next
e.Form.DropDownBox.Value = s1.trim(",")
e.Form.DropTable.Current("符合资质焊工") = s2.trim(",")
e.Form.DropDownBox.CloseDropdown