主题：权限设置与加载树

各位狐精：

本小狐遇到问题如下：

前提：

1、系列数据全部为外部数据；

2、有系列统计报告是基于这些数据完成的。

 

实现目的：分不同权限，查看不同的内容，如，张三为广州组的成员，张三只允许看到“城市=广州市”数据；总部组的人可以看到所有数据。

 

本小狐采用方法如下：

1、外部加载数据设置为：

过滤条件：[_Identify] Is Null

2、项目属性-项目事件

loadusersetting():

 

If User.Group= "总部" Then

DataTables("大段份额").LoadFilter = ""

DataTables("电视监测流水_明细").LoadFilter = ""

DataTables("报纸监测流水_明细").LoadFilter = ""

DataTables("电台流水模板_明细").LoadFilter = ""

DataTables("杂志监测流水_明细").LoadFilter = ""

DataTables("分钟收视率").LoadFilter = ""

DataTables("广告刊例_明细").LoadFilter = ""

 

 

Else If User.Group= "广州" Then

DataTables("大段份额").LoadFilter = "城市= '广州市'"

DataTables("电视监测流水_明细").LoadFilter = "城市中= '广州市'"

DataTables("报纸监测流水_明细").LoadFilter = "城市中= '广州市'"

DataTables("电台流水模板_明细").LoadFilter = "城市中= '广州市'"

DataTables("杂志监测流水_明细").LoadFilter = "城市中= '广州市'"

DataTables("分钟收视率").LoadFilter = "城市= '广州市'"

DataTables("广告刊例_明细").LoadFilter = "地区= '广州市'"

 

 

Else If User.Group= "昆明" Then

DataTables("大段份额").LoadFilter = "城市= '昆明市'"

DataTables("电视监测流水_明细").LoadFilter = "城市中= '昆明市'"

DataTables("报纸监测流水_明细").LoadFilter = "城市中= '昆明市'"

DataTables("电台流水模板_明细").LoadFilter = "城市中= '昆明市'"

DataTables("杂志监测流水_明细").LoadFilter = "城市中= '昆明市'"

DataTables("分钟收视率").LoadFilter = "城市= '昆明市'"

DataTables("广告刊例_明细").LoadFilter = "地区= '昆明市'"

 

 

Else If User.Group= "贵阳" Then

DataTables("大段份额").LoadFilter = "城市= '贵阳市'"

DataTables("电视监测流水_明细").LoadFilter = "城市中= '贵阳市'"

DataTables("报纸监测流水_明细").LoadFilter = "城市中= '贵阳市'"

DataTables("电台流水模板_明细").LoadFilter = "城市中= '贵阳市'"

DataTables("杂志监测流水_明细").LoadFilter = "城市中= '贵阳市'"

DataTables("分钟收视率").LoadFilter = "城市= '贵阳市'"

DataTables("广告刊例_明细").LoadFilter = "地区= '贵阳市'"

 

 

Else If User.Group= "重庆" Then

DataTables("大段份额").LoadFilter = "城市= '重庆市'"

DataTables("电视监测流水_明细").LoadFilter = "城市中= '重庆市'"

DataTables("报纸监测流水_明细").LoadFilter = "城市中= '重庆市'"

DataTables("电台流水模板_明细").LoadFilter = "城市中= '重庆市'"

DataTables("杂志监测流水_明细").LoadFilter = "城市中= '重庆市'"

DataTables("分钟收视率").LoadFilter = "城市= '重庆市'"

DataTables("广告刊例_明细").LoadFilter = "地区= '重庆市'"

 

Else If User.Group= "深圳" Then

DataTables("大段份额").LoadFilter = "城市= '深圳市'"

DataTables("电视监测流水_明细").LoadFilter = "城市中= '深圳市'"

DataTables("报纸监测流水_明细").LoadFilter = "城市中= '深圳市'"

DataTables("电台流水模板_明细").LoadFilter = "城市中= '深圳市'"

DataTables("杂志监测流水_明细").LoadFilter = "城市中= '深圳市'"

DataTables("分钟收视率").LoadFilter = "城市= '深圳市'"

DataTables("广告刊例_明细").LoadFilter = "地区= '深圳市'"

 

End If

DataTables("大段份额").Load()

DataTables("电视监测流水_明细").Load()

DataTables("报纸监测流水_明细").Load()

DataTables("电台流水模板_明细").Load()

DataTables("杂志监测流水_明细").Load()

DataTables("分钟收视率").Load()

DataTables("广告刊例_明细").Load()

 

出现了如下问题：

因为启动时要加载所有数据，导致启动过程十分漫长；

但若需要采用加载树的话，权限设置等于报废了，张三可以看到所有数据；

 

各位狐精如何解决这个问题。