Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载树与权限管理问题


  共有2873人关注过本帖树形打印复制链接

主题：加载树与权限管理问题
帅哥哟，离线，有人找我吗？
gudao123456
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：6402 威望：0 精华：0 注册：2017/11/21 21:31:00 		加载树与权限管理问题  发帖心情 Post By：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)


请问这段代码在什么位置设置？ 谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/7 17:52:00 [只看该作者]

项目事件afteropenproject

 回到顶部
帅哥哟，离线，有人找我吗？
gudao123456
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：6402 威望：0 精华：0 注册：2017/11/21 21:31:00 		  发帖心情 Post By：2020/1/8 0:52:00 [只看该作者]

而且在切换用户时，数据并没有切换，而且出现以下问题：只加载第一页，点击“下一页”时，没有出现数据。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/8 8:38:00 [只看该作者]

同时把代码放一份到LoadUserSetting事件。

写了什么代码？表结构和数据是怎么样的？
 回到顶部
帅哥哟，离线，有人找我吗？
gudao123456
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：6402 威望：0 精华：0 注册：2017/11/21 21:31:00 		  发帖心情 Post By：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)
以开放者登录时，可以翻大部分页，但试过，最后的几页都是空的，其他用户登录，只第一页显示有数据，第二页就没有数据了， 不知何故
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/9 9:10:00 [只看该作者]

msgbox(User.Group)

其他用户设置分组了没有？表格有没有这个分组的数据？有多少页数据？

 回到顶部
帅哥哟，离线，有人找我吗？
gudao123456
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：6402 威望：0 精华：0 注册：2017/11/21 21:31:00 		  发帖心情 Post By：2020/1/9 22:18:00 [只看该作者]

显示了总页数，但第二页就不出现数据了。数据表中有gzxx 和 xq 字段的，而且数据肯定不止一页。而且user的group 就是按gzxx分组的

[此贴子已经被作者于2020/1/9 22:19:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/10 9:22:00 [只看该作者]

请上传实例说明

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询