以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  项目买卖  (http://www.foxtable.com/bbs/list.asp?boardid=23)
----  关于权限  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=23&id=86928)

--  作者:hopestarxia
--  发布时间:2016/6/29 0:33:00
--  关于权限
If User.IsRole("浏览全部可编辑") Or  User.IsRole("浏览全部不编辑") Or User.IsRole("浏览全部改本部")  Then
    DataTables("人员表").LoadFilter = ""
Else
    DataTables("人员表").LoadFilter = "BM = \'" & User.Group & "\'"          
End If
DataTables("人员表").Load()

请问此语句如何简化?想实现用户管理中“角色定义里选择的项是带“浏览全部”的这类角色。

If left(User.IsRole,4) ="浏览全部"  Then
    DataTables("人员表").LoadFilter = ""
Else
    DataTables("人员表").LoadFilter = "BM = \'" & User.Group & "\'"          
End If
DataTables("人员表").Load()



--  作者:hopestarxia
--  发布时间:2016/6/29 16:19:00
--  此语句有简化的方法吗?
请老师们指点一下,此语句怎么可以再简化一下.