以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 团队权限管理  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97939)
--  作者：gengwvi
--  发布时间：2017/3/21 12:27:00
--  [求助] 团队权限管理

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

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

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

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

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

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

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

 

姓名 团队 部门 总监 姓名 团队 部门 总监
吴昆伟 王峰团队 刘博区部 祝清 袁春 彭爱婷团队 周奇区部 王敏
高俊生 王峰团队 刘博区部 祝清 张园萍 彭爱婷团队 周奇区部 王敏
许宁炉 王俊团队 钱凯区部 祝清 赵立聪 王玲团队 卢晓涛区部 王敏
杨培莉 王俊团队 钱凯区部 祝清 陈怀妹 王玲团队 卢晓涛区部 王敏
--  作者：有点色
--  发布时间：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
--  发布时间：2017/3/22 15:39:00
--  回复：（有点色）参考代码 If User.Group = ...

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

 

另外如何让代码，针对 所有的表，只加载对应权限下的行。而不用按一个一个去表写代码？ 好实现吗？
--  作者：有点蓝
--  发布时间：2017/3/22 16:37:00
--  

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

 

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

 

For Each dt As DataTable In DataTables

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

 

Next