[求助]关于目录树权限问题，修改说明书后出现的问题！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如上面的图片

此主题相关图片如下：qq截图20130318163149.jpg

此主题相关图片如下：qq截图20130318163210.jpg

图片一是表的结构图，和说明书一样，只是增加了一列

图片二是生成后的窗口样式

如果按照说明书的话，每一个操作需要单独设定某些人去做，我修改后正好反过来了，每个人或者职位能操作什么。这样做的好处是，功能可能会很懂，但是职位肯定少，选择人或者职位以后进行权限的分配更简单一些，不会那么繁琐。

我想实现的是，如果点击左边的目录树，那么授权表中用户列只要有这个节点，那么复选框就选中。

如果右边的复选框点击选中后，就会把左边选中的节点信息添加到表的用户列，但是小弟不才，刚接触狐表几个月，对于这么繁琐的编程还没有学好，希望大侠可以协助一下，谢谢了。最好能跟说明书哪个按列一样写一下，小弟不胜感激！

另附小弟研究的左边目录树的选择节点后执行事件的代码，现在报错！

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")

Dim dr As DataRow

Dim nms As New List(of String)

nms.AddRange(DataTables("权限管理").DataCols("用户").Split(","))

If e.node.Level > = 0 Then

dr = DataTables("权限管理").Find("用户 = '" & e.Node.Name & "'")

End If

If dr IsNot Nothing AndAlso dr.IsNull("用户") = False

For Each nd As WinForm.TreeNode In trv2.AllNodes

nd.Checked = nms.Contains(nd.Name)

End If

[此贴子已经被作者于2013-3-18 16:40:33编辑过]

主题：[求助]关于目录树权限问题，修改说明书后出现的问题！