以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  角色权限问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34781)
--  作者：yifan3429
--  发布时间：2013/6/15 14:18:00
--  角色权限问题

 

If User.neme = "张三" Then    

 DataTables("进度").LoadFilter = ""
Else
  DataTables("进度").LoadFilter = "执行者 = \'" & User.Name & "\'"
End If
DataTables("进度").Load()

 

 

我把它替换成角色后  就不行了 如何才能达到  如果角色是经理就加载全部数据   否则只加载当前登陆用户的数据

 

If User.Roles = "企划部经理" Then

 

 

求高手帮忙

--  作者：Bin
--  发布时间：2013/6/15 14:20:00
--  

通过IsRole方法，可以判断用户具备某个角色：

If User.IsRole("审核") Then
    MessageBox.Show("当前用户具备审核功能!")
End If


Roles
返回用户的角色，一个用户可以有多个角色，用逗号分隔。


http://www.foxtable.com/help/topics/0609.htm
--  作者：yifan3429
--  发布时间：2013/6/15 15:25:00
--  
以下是引用Bin在2013-6-15 14:20:00的发言：

通过IsRole方法，可以判断用户具备某个角色：

If User.IsRole("审核") Then
    MessageBox.Show("当前用户具备审核功能!")
End If


Roles
返回用户的角色，一个用户可以有多个角色，用逗号分隔。


http://www.foxtable.com/help/topics/0609.htm

If User.Roles = "企划部经理" Then 

DataTables("进度").LoadFilter = ""
Else
DataTables("进度").LoadFilter = "执行者 = \'" & User.Name & "\'"
End If
DataTables("进度").Load()

 

我这样改写  但是不会加载数据

 

原来的写法是张三登录就可以看看到所有用户的数据  现在通过如果角色是经理那么可以看到所有的数据  否则只能看到当前登录用用户的数据。

 

我要怎样改才能实现 

[此贴子已经被作者于2013-6-15 15:27:41编辑过]
--  作者：Bin
--  发布时间：2013/6/15 15:27:00
--  
解释我也写了,帮助我也发了  例子也贴出来了.  你还是要按照你自己错误的做法来写.  我也没有办法!
--  作者：yifan3429
--  发布时间：2013/6/15 16:01:00
--  

刚才没有理解过来   现在明白了，搞定了  如下

 

If User.IsRole("企划部经理") Then
    DataTables("总表").LoadFilter = ""
Else
    DataTables("总表").LoadFilter = "工程师 = \'" & User.Name & "\'"
End If
DataTables("总表").Load()