主题：分享：目录树权限管理示例

　　前两天看到论坛有朋友提出这个问题，我做了一个示例，分享给大家．

要点是：

１．在打开目录树窗口时并不加载目录树，而是通过选择用户来加载目录树，其目录树的来源是：用户表

２．用户表的格式与原贺老师的权限管理不同，我是横向的，每个用户一行，并且我用的是二级列标题，也就是帮助中所说的多层表头的问题．这就给目录树勾选时有一定的难度．

３．目录树与用户表是同步更新，也就是说，在加载目录树时，将某一用户的资料加到目录树中，当在目录树上有更改时，同步更新到用户表中，无需再做其它的操作．

４．由于目录树加载时是根据单列或多列自动加载的，而用户表又是横向的，那如何处理呢？所以在此我做了一个过渡表，在选择用户时，同步将用户表中的逻辑列的列名称加到这个过渡表：权限管理表中，并对此表进行操作．

５．在将权限表中的Ａ列加载到目录树中时，遇到一个问题，就是目录树的AfterCheckNode事件中有代码，正好与我当前的操作有冲突，怎么样才能在我进行当前操作时不让目录树执行此代码呢？我使用了一个全局变量：打开，就解决问题了，呵．

为了及时看到操作的结果，我将窗体放在了权限表中，狐友也可以放到用户表中，大家有什么好的建议和意见，请及时提出．

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

点击浏览该文件:目录树权限管理.table

此主题相关图片如下：用户表.jpg

 

此主题相关图片如下：窗口.jpg

可以试试看，你是否给一个图样？

初步的想法：如是多人，是否可以加一个用户组列？然后对同一个组的多个人进行设置

看楼上的东东，头都晕了，呵

谢谢ＣＺＹ版主，呵！好好研究一下.

StopRedraw　和　ResumeRedraw　这两个函数用的好！代码精简的好！

好啊，我本来也不想用过度表的，可是功力不够啊，搞了几个小时都不行，所以只好过度了，呵

这个问题是没注意到，呵，我再看看

目录树的AfterCheckNode事件代码改成这样试试

 

e.Form.StopRedraw()
Dim r As DataRow = DataTables("用户").Find("用户名 = '" & e.Form.Controls("ComboBox1").Value & "'")
If r IsNot Nothing And e.Node.Level > 0 Then
    r(e.Node.FullPath.Replace("\","_")) = e.Node.Checked
Else
For Each nd As WinForm.TreeNode In e.Node.AllNodes
    nd.Checked  = e.Node.Checked
Next
End If

e.Form.ResumeRedraw()