以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]不同用户权限管理(只能看到自己部门相关的行)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95720)

--  作者:烟斗木木
--  发布时间:2017/2/3 15:44:00
--  [求助]不同用户权限管理(只能看到自己部门相关的行)
现在需要给“业务室”用户组下所有用户设置权限,只能看到落实人包括“业务室”的行。
代码如下:
If User.group = "办公室" Then
    DataTables("工作安排").LoadFilter = "" \'如果用户组是办公室,则加载所有行。
Else
    If User.group = "业务室" Then
        DataTables("工作安排").LoadFilter = "落实人 like \'业务室\'"  \'如果用户组是业务室,则加载包含业务室的行。
    Else
        DataTables("工作安排").LoadFilter = "落实人 like \'%" & User.Name & "%\'" \'其他用户加载登录者的相关行。
    End If
    DataTables("工作安排").Load()
End If

问题:使用业务室下的用户登录后,只显示 业务室 的行,而由业务室与其他人合作落实的行,却不显示,求解。
另外,这代码是否可以继续优化。

--  作者:有点色
--  发布时间:2017/2/3 15:53:00
--  
 DataTables("工作安排").LoadFilter = "落实人 like \'%业务室%\'"  \'如果用户组是业务室,则加载包含业务室的行。