| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 加载树与权限管理问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145082) |
| -- 作者：gudao123456 -- 发布时间：2020/1/7 17:31:00 -- 加载树与权限管理问题 帮助文档中提到：例如，假定希望雇员分组的用户在登录之后，只加载自己负责的数据，可以将打开加载树的代码改为：
Dim flt As String If User.Group = "雇员" Then flt = "雇员 = \'" & User.Name & "\'" End If Tables("订单").OpenLoadTree("日期 YM|产品",150,100,True,flt) Dim flt As String If User.Group = "雇员" Then flt = "雇员 = \'" & User.Name & "\'" End If Tables("订单").OpenLoadTree("日期 YM|产品",150,100,True,flt) 请问这段代码在什么位置设置？ 谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2020/1/7 17:52:00 -- 项目事件afteropenproject |
| -- 作者：gudao123456 -- 发布时间：2020/1/8 0:52:00 -- 而且在切换用户时，数据并没有切换，而且出现以下问题：只加载第一页，点击“下一页”时，没有出现数据。 |
| -- 作者：有点蓝 -- 发布时间：2020/1/8 8:38:00 -- 同时把代码放一份到LoadUserSetting事件。 写了什么代码？表结构和数据是怎么样的？
|
| -- 作者：gudao123456 -- 发布时间：2020/1/8 20:45:00 -- 代码如下： Dim flt As String If User.Type=UserTypeEnum.Developer Or user.IsRole("市资助管理") Then flt="" Else flt = "[gzxx] = \'" & User.Group & "\'" End If Tables("xszxztb").OpenLoadTree("xq",150,50,True,flt) 以开放者登录时，可以翻大部分页，但试过，最后的几页都是空的，其他用户登录，只第一页显示有数据，第二页就没有数据了， 不知何故
|
| -- 作者：有点蓝 -- 发布时间：2020/1/9 9:10:00 -- msgbox(User.Group) |
| -- 作者：gudao123456 -- 发布时间：2020/1/9 22:18:00 -- 显示了总页数，但第二页就不出现数据了。数据表中有gzxx 和 xq 字段的，而且数据肯定不止一页。而且user的group 就是按gzxx分组的 [此贴子已经被作者于2020/1/9 22:19:15编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/1/10 9:22:00 -- 请上传实例说明 |