主题：目录树授权

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nd1 As WinForm.TreeNode = trv1.SelectedNode
Dim dr As DataRow

If nd1.Level = 0 Then
    dr = DataTables("角色管理").Find("角色名称 = '" & nd1.Name & "'")
End If
If dr IsNot Nothing Then
    Dim nms As String
    For Each nd2 As WinForm.TreeNode In trv2.Nodes
        For Each nd3 As WinForm.TreeNode In nd2.Nodes
            If nd3.Checked Then
                nms &= "," & nd2.name
                nms  = nms & "/" &  nd3.Name
            End If
        Next
        If nd2.Checked AndAlso nms = "" Then
            nms = nd2.name
        End If
    Next
    If nms > "" Then
        dr("授权集合") = nms.Trim(",")
    Else
        dr("授权集合") = Nothing
    End If
End If

1、你可以分开两列分别设置；

2、在本来的基础上增减这种比较麻烦，无法确定哪个属于哪个目录树的。