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

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

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

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：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编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/24 19:38:00 [只看该作者]

比如

Tables("订单表").OpenLoadTree("客户|状态|订单名称",100,100,True,"(',' + 设计师 + ',') = '," & User.Name & ",'")

yifan3429

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

加好友

发短信

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

Post By：2016/8/24 22:47:00 [只看该作者]

---

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/24 22:50:00 [只看该作者]

应该是没问题的。你1楼贴的代码和你给的例子，不匹配，直接说你例子要实现什么。

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：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()

188802386

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

加好友

发短信

等级：三尾狐帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00

Post By：2016/8/26 14:08:00 [只看该作者]

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

Else

DataTables("订单").LoadFilter = "协助团队 like '%" & user.Name & "%'"

End If

DataTables("订单").Load()

才学习的，你试下看可以用不

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

下一主题 >> << 上一主题

主题：一列多人权限问题