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

在窗口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

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

你的程序谁帮你写的？

你的用户名、用户角色，用什么变量记录？

这样的问题，请联系购买框架的作者

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

那就改成

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

不会做上传具体实例。

密码错误，无法打开，请贴出开发者密码

这样写

'================自定义函数,权限设置=============
For Each c As Winform.Control In e.Form.Controls
    Functions.Execute("权限设置",c)
Next

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