主题：目录树级联多列多值输入可以实现吗？

确定按钮的代码设置为:

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim s1 As String = ""
Dim s2 As String = ""

For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        If nd.Level = 0
            s1 = s1 & "," & nd.Text
        ElseIf nd.Level = 1
            s2 = s2 & "," & nd.Text
        End If
    End If
   
Next
e.Form.DropDownBox.Value = s1.trim(",")
e.Form.DropTable.current("第一列") = s1.trim(",")
e.Form.DropTable.current("第二列") = s2.trim(",")
e.Form.DropDownBox.CloseDropdown