- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于目录树权限问题，修改说明书后出现的问题！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29989)
-- 发布时间：2013/3/18 16:35:00
-- [求助]关于目录树权限问题，修改说明书后出现的问题！
如上面的图片
此主题相关图片如下：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)
Next
End If
[此贴子已经被作者于2013-3-18 16:40:33编辑过]
-- 发布时间：2013/3/18 16:46:00
--
例子很大啊~~~
-- 发布时间：2013/3/18 16:50:00
--
OK
-- 发布时间：2013/3/18 16:54:00
--
例子传上来了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实例.foxdb |
-- 发布时间：2013/3/18 17:40:00
--
没人回答吗？
-- 发布时间：2013/3/18 18:56:00
--
以下是引用lhpc120在2013-3-18 17:40:00的发言：
没人回答吗？
没人回答吗？
只能看试用版的，惭愧。