主题：[求助]关于目录树授权的一个细节问题！【例子已上传】

将你的例子发上来

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:授权.rar

 例子已上传

老大 还有个情况 没纳入代码里面！

If tr2.Focused  AndAlso e.node.Level = 0  Then

例如：左边目录树选择备件部，右边目录树选 A卡管理 为true后其根节点都会为true  而且会在授权表中权限分组为 A卡管理 的所有行里添加 备件下面的所有岗位！

        还有个功能 就是右边目录树 如果子节点全部为true 其父节点 也会为true

呵呵，其实帮助的例子很好，何必这么辛苦的自己做呢，可以单项授权，也可以整个分类授权，不是更灵活和实用吗？

这种玩意，可不是随便能改的，需要非常老练才行：

Dim tr1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim tr2 As WinForm.TreeView = e.Form.Controls("TreeView2")
If tr2.Focused AndAlso e.node.Level = tr2.SelectedNode.Level Then
    Dim dr As DataRow
    Dim nds1 As New List(of winform.treenode)
    If tr1.SelectedNode.Nodes.count = 0 Then
        nds1.add(tr1.SelectedNode)
    Else
        nds1.addrange(tr1.SelectedNode.nodes)
    End If
    Dim nds2 As New List(of winform.treenode)
    If tr2.SelectedNode.Nodes.count = 0 Then
        nds2.add(tr2.SelectedNode)
    Else
        nds2.addrange(tr2.SelectedNode.nodes)
    End If
    For Each nd1 As WinForm.TreeNode In nds1
        For Each nd2 As winform.treenode In nds2
            dr = DataTables("授权").Find("权限 = '" & nd2.Text & "'")
            Dim nms As New List(of String)
            nms.Addrange(dr("用户").trim(",").split(","))
            Dim nm As String  = nd1.Text.trim("←")
            If tr2.SelectedNode.Checked = True Then
                If nms.Contains(nm) = False Then
                    nms.add(nm)
                End If
            Else
                If nms.Contains(nm) Then
                    nms.Remove(nm)
                End If
            End If
            If nd2.Checked <> tr2.SelectedNode.Checked Then
                nd2.Checked = tr2.SelectedNode.Checked
            End If
            dr("用户") = String.Join(",",nms.ToArray)
        Next
    Next
End If

是啊 被绕得头疼死了   多谢老大了！