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


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

主题：加载树与权限管理问题
帅哥哟，离线，有人找我吗？
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)


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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
gudao123456
 小大  3楼 | 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)
以开放者登录时，可以翻大部分页，但试过，最后的几页都是空的，其他用户登录，只第一页显示有数据，第二页就没有数据了， 不知何故
 回到顶部
帅哥哟，离线，有人找我吗？
gudao123456
 小大  4楼 | 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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询