员工管理系统。按照不同用户，设置了权限，项目启动后，用户只能加载本部门员工信息。正常。用户自定义菜单里不想屏蔽加载树。问题来啦，加载树出马，立即破坏了加载权限限制。问，如何限制加载树篡权？
在biforeloadoutertable中，加入代码如下：
Select Case e.DataTablename
Case "个人持证情况表","员工职称表","员工基础表","部门表"
e.SelectString = "Select * Fro m {" & e.DataTablename & "} Where [_Identify] Is Null"
End Select
在aftoropenproject中，加入代码如下：
If user.Type = UserTypeEnum.User Then
If _userjibie = "二级"
DataTables("员工基础表").loadfilter = "[二级] = '" & _Usergroup & "'"
DataTables("员工基础表").load
DataTables("部门表").loadfilter = "[二级] = '" & _Usergroup & "'"
DataTables("部门表").load
else
^
.....
end if
end if
这样根据用户级别、分组，就可以加载不同部门的员工信息。
但是，菜单加载树无法限制。
在表事件中， beforeload中加入限制代码，出现了错误，项目不启动了，疑似死循环？
不敢乱来了，所以提问。
[此贴子已经被作者于2019/1/17 20:59:44编辑过]
加好友 
发短信
Post By：2019/1/17 20:28:00 [显示全部帖子]
