Foxtable(狐表)用户栏目专家坐堂 → [求助] 团队权限管理


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

主题:[求助] 团队权限管理

帅哥哟,离线,有人找我吗?
gengwvi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:64 积分:927 威望:0 精华:0 注册:2015/10/20 15:44:00
[求助] 团队权限管理  发帖心情 Post By:2017/3/21 12:27:00 [只看该作者]

老师,好 有一个表达式实在不知道应该怎么写了

公司职级编制,有销售  团队长  部门经理  大区总监,公司人力比较多,在加载合同表的时候,想实现 一下功能,烦劳老师给看看怎么写

1.销售只能看到自己的合同 

 2.团队长可以看到其下属员工的合同  

3.经理可以看到 其下属团队所有销售的合同  

4.总监可以看到其下属部门的所有合同

5.管理员和开发者可以看到所有的合同。

 

姓名 团队 部门 总监 姓名 团队 部门 总监
吴昆伟 王峰团队 刘博区部 祝清 袁春 彭爱婷团队 周奇区部 王敏
高俊生 王峰团队 刘博区部 祝清 张园萍 彭爱婷团队 周奇区部 王敏
许宁炉 王俊团队 钱凯区部 祝清 赵立聪 王玲团队 卢晓涛区部 王敏
杨培莉 王俊团队 钱凯区部 祝清 陈怀妹 王玲团队 卢晓涛区部 王敏


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/21 13:01:00 [只看该作者]

参考代码

 

If User.Group = "销售" Then
    DataTables("表A").LoadFilter = "姓名 = '" & User.name & "'"
ElseIf User.Group = "团队长" Then
    Dim names As String = DataTables("人员").GetComboListString("姓名", "团队 = '" & user.name & "'")
    DataTables("表A").LoadFilter = "姓名 in ('" & names.Replace("|", "','") & "')" 
End If
DataTables("表A").Load


 回到顶部
帅哥哟,离线,有人找我吗?
gengwvi
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:64 积分:927 威望:0 精华:0 注册:2015/10/20 15:44:00
回复:(有点色)参考代码 If User.Group = ...  发帖心情 Post By:2017/3/22 15:39:00 [只看该作者]

可以实现,已经试过了谢谢,老师

 

另外如何让代码,针对 所有的表,只加载对应权限下的行。而不用按一个一个去表写代码? 好实现吗?


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/22 16:37:00 [只看该作者]

所有的表都有统一的字段,比如“姓名”

 

然后在循环中处理2楼的代码

 

For Each dt As DataTable In DataTables

    dt.LoadFilter = "姓名 = '" & User.name & "'"
    dt.Load

 

Next

 

 


 回到顶部