[求助] 团队权限管理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2767人关注过本帖树形打印复制链接主题：[求助] 团队权限管理

gengwvi

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：64 积分：939 威望：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