Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题：关于权限
1楼
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()


2楼
hopestarxia 发表于：2016/6/29 16:19:00
请老师们指点一下，此语句怎么可以再简化一下.
共2 条记录, 每页显示 10 条, 页签: [1]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 2 queries.