以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于目录树权限问题,修改说明书后出现的问题!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29989)

--  作者:lhpc120
--  发布时间: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编辑过]

--  作者:lhpc120
--  发布时间:2013/3/18 16:46:00
--  
例子很大啊~~~
--  作者:lhpc120
--  发布时间:2013/3/18 16:50:00
--  
OK
--  作者:lhpc120
--  发布时间:2013/3/18 16:54:00
--  
例子传上来了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实例.foxdb


--  作者:lhpc120
--  发布时间:2013/3/18 17:40:00
--  
没人回答吗?
--  作者:lsy
--  发布时间:2013/3/18 18:56:00
--  
以下是引用lhpc120在2013-3-18 17:40:00的发言:
没人回答吗?

只能看试用版的,惭愧。