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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 权限行不可见

共有5800人关注过本帖树形打印复制链接主题：权限行不可见

chk

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

加好友

发短信

等级：幼狐帖子：52 积分：528 威望：0 精华：0 注册：2018/4/23 8:59:00

权限行不可见 发帖心情

Post By：2022/4/2 16:42:00 [显示全部帖子]

您好！这个项目的LoadUserSetting事件

        If User.Group = "新发总部"Then
    DataTables("排柜计划").LoadFilter = ""
Else
    DataTables("排柜计划").LoadFilter = "客户负责人 = '" & User.Name & "'"
End If
DataTables("排柜计划").Load()

我能不能把 If User.Group = "新发总部"Then 改为 If User.Group = "everyone"Then，

除了客户负责人用户只能见自己对应的行，其它所有分组的用户都可以见所有行？

谢谢！！

[此贴子已经被作者于2022/4/2 16:42:24编辑过]

chk

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

加好友

发短信

等级：幼狐帖子：52 积分：528 威望：0 精华：0 注册：2018/4/23 8:59:00

Post By：2022/4/7 17:02:00 [显示全部帖子]

您好！

我改了后显示的结果不对，限制了的用户怎么还是全部的行都可以见，不知道为什么？

If User.Group <> "新发总部"Then
    DataTables("生产计划").LoadFilter = ""
Else
    DataTables("生产计划").LoadFilter = "客户负责人 = '" & User.Name & "'"
End If
DataTables("生产计划").Load()
If User.Group <> "新发总部"Then
    DataTables("原辅料仓库出入表").LoadFilter = ""
Else
    DataTables("原辅料仓库出入表").LoadFilter = "经手人= '" & User.Name & "'"
End If
DataTables("原辅料仓库出入表").Load()

chk

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

加好友

发短信

等级：幼狐帖子：52 积分：528 威望：0 精华：0 注册：2018/4/23 8:59:00

Post By：2022/4/7 17:26:00 [显示全部帖子]

您好！

刚刚在表属性BeforeLoad加了这个代码，但是结果还是一样，对应经手人还是可以看到其它行。

If User.Group = "经手人" '如果用户组是雇员
    Dim fl As String = "[经手人] = '" & User.Name & "'"
    If e.DataTable.LoadFilter = "" Then
        e.DataTable.LoadFilter = fl
    ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then '如果没有包括雇员条件
        e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl
    End If
End If

这个表只和汇总表做过关联是子表。

[此贴子已经被作者于2022/4/7 17:32:59编辑过]