| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]目录树节点权限控制 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174828) |
| -- 作者：lgj716330 -- 发布时间：2022/2/8 12:10:00 -- [求助]目录树节点权限控制 已解决
[此贴子已经被作者于2022/2/8 20:58:53编辑过]
|
| -- 作者：cd_tdh -- 发布时间：2022/2/8 12:35:00 -- 先判断目录树的节点级数，比如： If e.Node.Level = 0 Then \'如果是顶级节点,也就是地区节点
Else
End If [此贴子已经被作者于2022/2/8 12:37:01编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/2/8 13:30:00 -- 黄色代码没有任何用处，去掉 Select Case e.Node.Name Case e.Node.Name Dim nms() As String = User.Roles.Split(",") For Each nm As String In nms Dim dr As DataRow dr = DataTables("目录树节点权限表").Find("目录树节点 = \'" & e.Node.Name & "\' and 角色 like \'%" & nm & "%\' and 不可用 = true") If dr IsNot Nothing Then MessageBox.Show("你无此节点权限!", "提示") e.cancel=True return End If Next End Select |
| -- 作者：lgj716330 -- 发布时间：2022/2/8 20:52:00 -- 已解决 [此贴子已经被作者于2022/2/8 20:59:18编辑过]
|