- 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=46604)
-- 发布时间：2014/2/26 10:21:00
-- 左右目录树怎么关联？？？
权限设置;
左边目录树是员工，右边是43项权限，在Team_Users表中的PermissionValue列设置各个员工权限0011100110100000000001011100000000001011000。0代表无此项权限，1代表有此项权限。将0011100110100000000001011100000000001011000分别赋值到System_Permission表的Permission列。如果是1，则右侧目录树对应节点复选框被选中。
在左侧目录树的AfterSelectNode实事件中写了以下代码，为什么没有作用？？请帮忙，谢谢
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim s As String =Tables("Team_UserGroups").current("PermissionValue")
此主题相关图片如下：1.bmp
此主题相关图片如下：2.jpg
此主题相关图片如下：3.jpg
此主题相关图片如下：1.bmp此主题相关图片如下：2.jpg此主题相关图片如下：3.jpgFor i As Integer=0 To s.length-1
Tables("System_Permission").rows(i)("Permission") = s(i)
If Tables("System_Permission").current("Permission") = 1 Then
For Each nd As WinForm.TreeNode In trv2.AllNodes
If nd.Text= Tables("System_Permission").current("Name") Then
nd.Checked = True
End If
Next
End If
Next
-- 发布时间：2014/2/26 14:59:00
--
？？？？？？？
-- 发布时间：2014/2/26 15:00:00
--
没看懂,也没有例子.无从下手.
-- 发布时间：2014/2/26 21:15:00
--
看样子代码应该是没错的，错的话应该是红色的代码
For i As Integer=0 To s.length-1
Tables("System_Permission").rows(i)("Permission") = s(i)
If Tables("System_Permission").current("Permission") = 1 Then
For Each nd As WinForm.TreeNode In trv2.AllNodes
If nd.Text = Tables("System_Permission").rows(i)("Name") Then
nd.Checked = True
End If
Next
End If
Next