各位狐精：
本小狐遇到问题如下：
前提：
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()
出现了如下问题：
因为启动时要加载所有数据，导致启动过程十分漫长；
但若需要采用加载树的话，权限设置等于报废了，张三可以看到所有数据；
各位狐精如何解决这个问题。
加好友 
发短信
Post By：2013/1/5 8:32:00 [只看该作者]
