Foxtable(狐表)用户栏目专家坐堂 → 权限多级控制


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

主题:权限多级控制

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/27 10:28:00 [显示全部帖子]

select case User.Name 

      case "经理"

              DataTables("计划表").LoadFilter = "部门 = '" & User.Group & "'"

      case  "主管"

               DataTables("计划表").LoadFilter = ""

      case  "职员"

              DataTables("计划表").LoadFilter = "职员 = '" & User.Name & "'"

end select

DataTables("计划表").Load()


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/27 10:56:00 [显示全部帖子]

何为之刷新?   你重新LOAD不会影响原来的LOADFILTER的

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/27 11:03:00 [显示全部帖子]

那你需要自己设计一个加载树.  在加载条件统一加上你的权限条件判断.

不会的话就上个例子吧.

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/27 11:10:00 [显示全部帖子]

8楼方案更加好,一时没记起这个好东东.

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/27 14:46:00 [显示全部帖子]

Dim fl As String


   

select case User.Name

case "经理"

fl = "部门 = '" & User.Group & "'"

case "主管"

fl = ""

case "职员"

fl = "职员 = '" & User.Name & "'"

end select

If e.DataTable.LoadFilter = "" Then

    e.DataTable.LoadFilter = fl

else if e.DataTable.LoadFilter.IndexOf(fl) < 0 Then

   e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl

end if

DataTables("计划表").Load()



 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/27 15:11:00 [显示全部帖子]

上个例子看看.

 回到顶部