一列多人权限问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一列多人权限问题

共有2454人关注过本帖树形打印复制链接主题：一列多人权限问题

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

一列多人权限问题 发帖心情

Post By：2016/8/24 19:23:00 [显示全部帖子]

一列多人权限问题

下载信息 [文件大小：下载次数： ]
点击浏览该文件:权限问题.foxdb

Case "按客户"

If User.Name = "管理员" Then

Select Case e.StripItem.Name

Case "按客户"

Tables("订单表").OpenLoadTree("客户|状态|订单名称")

Case "按日期"

Tables("订单表").OpenLoadTree("客户|状态|订单名称")

Case "按状态"

Tables("订单表").OpenLoadTree("客户|状态|订单名称")

End Select

ElseIf user.Group = "主要负责人" Then

Tables("订单表").OpenLoadTree("客户|状态|订单名称",100,100,True,"主要负责人 = '" & User.Name & "'")

ElseIf user.Group = "协助团队" Then

Tables("订单表").OpenLoadTree("客户|状态|订单名称",100,100,True,"协助 = '" & User.Name & "'") 如何判断一列内多个条件

End If

[此贴子已经被作者于2016/8/24 19:32:12编辑过]

yifan3429

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2016/8/24 22:47:00 [显示全部帖子]

---

[此贴子已经被作者于2016/8/26 14:03:22编辑过]

yifan3429

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2016/8/26 14:04:00 [显示全部帖子]

If User.Name = "张经理" Then
DataTables("订单").LoadFilter = ""
Else
DataTables("订单").LoadFilter = "业务员 = '" & User.Name & "'"

Else

DataTables("订单").LoadFilter = "协助团队 = '" & User.Name & "'" 这是一个多值列会输入若干用户名做出判断当前用户在里面同意加载数据
End If
DataTables("订单").Load()

主题：一列多人权限问题