主题：[求助]登录选择性加载目录树中的项目

需求解答问题1、登录时只有管理员
此主题相关图片如下：l7hqhdfm4r%tw8~sdu(i8k.png

才能看到左侧目录树中的工程建设和证件管理，非管理员只能看到工程建设看不到证件管理？

在窗口AfterLoad事件写。

 

Dim trv As WinForm.TreeView = e.form.controls("treeview1")
If User.name <> "管理员" Then
    trv.Nodes("工程建设").Delete
    trv.Nodes("证件管理").Delete
End If

怎么不行

能给做个实例吗

 加入代码，看弹出什么

 

msgbox(user.name)

msgbox(user.roles)

显示  默认   什么意思  ？

 弹出什么，你代码就改成什么

 

Dim trv As WinForm.TreeView = e.form.controls("treeview1")
If User.name <> "管理员" Then
    trv.Nodes("工程建设").Delete
    trv.Nodes("证件管理").Delete
End If

还是不行，管理员进入（admin）这两项也没有了     其他用户组（如办公室
此主题相关图片如下：no5ssugchvg7}(v6ao52ok.png

）进入也没有了

Dim trv As WinForm.TreeView = e.form.controls("treeview1")
If User.Roles <> "管理员" Then
    trv.Nodes("工程建设").Delete
    trv.Nodes("证件管理").Delete
End If

还是没反应能加你QQ我给你发过去  你帮忙调试下吗