Foxtable(狐表)用户栏目专家坐堂 → 用户权限管理问题


  共有4512人关注过本帖树形打印复制链接

主题:用户权限管理问题

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/11/7 19:24:00 [显示全部帖子]

 代码这样改一下。

If User.Type = UserTypeEnum.Administrator Then
    DataTables("基本情况").loadfilter = ""
ElseIf user.Type=usertypeenum.Developer Then
    DataTables("基本情况").loadfilter = ""
Else
    Dim s As String = user.Roles
    DataTables("基本情况").loadFilter="预约科室 in ('" & s.Replace(",", "','") & "')"
End If
DataTables("基本情况").Load()

 回到顶部