- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]登录选择性加载目录树中的项目 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103328)
-- 发布时间：2017/7/6 8:08:00
-- [求助]登录选择性加载目录树中的项目
需求解答问题1、登录时只有管理员
此主题相关图片如下：l7hqhdfm4r%tw8~sdu(i8k.png
才能看到左侧目录树中的工程建设和证件管理，非
[此贴子已经被作者于2017/7/6 8:11:41编辑过]
-- 发布时间：2017/7/6 8:42:00
--
在窗口AfterLoad事件写。
Dim trv As WinForm.TreeView = e.form.controls("treeview1")
If User.name <> "管理员" Then
trv.Nodes("工程建设").Delete
trv.Nodes("证件管理").Delete
End If
-- 发布时间：2017/7/6 9:28:00
--
怎么不行
我想在登录进入系统后 不是管理员 则不显示工程建设 只显示证件管理 只有管理员才有权限全部显示
感谢各位再次给予给指点
[此贴子已经被作者于2017/7/6 9:30:59编辑过]
-- 发布时间：2017/7/6 9:29:00
--
能给做个实例吗
-- 发布时间：2017/7/6 9:30:00
--
加入代码，看弹出什么
msgbox(user.name)
msgbox(user.roles)
-- 发布时间：2017/7/6 9:36:00
--
显示 默认 什么意思 ？
-- 发布时间：2017/7/6 9:41:00
--
弹出什么，你代码就改成什么
Dim trv As WinForm.TreeView = e.form.controls("treeview1")
If User.name <> "管理员" Then
trv.Nodes("工程建设").Delete
trv.Nodes("证件管理").Delete
End If
-- 发布时间：2017/7/6 10:27:00
--
还是不行，管理员进入（admin）这两项也没有了 其他用户组（如办公室
此主题相关图片如下：no5ssugchvg7}(v6ao52ok.png
）进入也没有了
[此贴子已经被作者于2017/7/6 10:27:28编辑过]
-- 发布时间：2017/7/6 10:29:00
--
Dim trv As WinForm.TreeView = e.form.controls("treeview1")
If User.Roles <> "管理员" Then
trv.Nodes("工程建设").Delete
trv.Nodes("证件管理").Delete
End If
-- 发布时间：2017/7/6 10:41:00
--
还是没反应能加你QQ我给你发过去 你帮忙调试下吗
[此贴子已经被作者于2017/7/6 14:37:24编辑过]