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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查看表数据权限！

共有2826人关注过本帖树形打印复制链接主题：查看表数据权限！

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/25 15:20:00 [显示全部帖子]

If User.Group = "总经办" OrElse User.Group = "财务" Then

DataTables("费用申请").LoadFilter = ""

Else

DataTables("费用申请").LoadFilter = "申请人 = '" & User.Name & "'"

End If

DataTables("费用申请").Load()

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/26 9:58:00 [显示全部帖子]

那你还得给他们分角色啊，比如组员、总经办、财务，判断user的角色而加载不同的数据啊

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/26 10:17:00 [显示全部帖子]

以下是引用身份不明在2014-11-26 10:14:00的发言：
这个功能不知道怎么写，比如营销部的组员角色进来了只能看到他自己填写的表，但是如果营销部的经理角色进来了可以看到所有的本部门的申请。

你的用户的结构是怎么写的？分组怎么分；角色怎么分

再有，你的数据表里面，只存储了用户名吗？是否有存角色、分组的信息？

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/26 10:42:00 [显示全部帖子]

[此贴子已经被作者于2014-11-26 10:42:42编辑过]

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/26 10:43:00 [显示全部帖子]

比如,如果是经理,就这样写

Dim us As String = ""
For Each u As UserInfo In Users
    If u.Group = User.Group Then
        us &= u.Name & "','"
    End If
Next

Dim filter As String = "申请人 in ('" & us.trim(",") & "')"
msgbox(filter)

主题：查看表数据权限！