起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 378|回复: 11

【结】如何代码控制决策立方Grid中项的展开与收缩?**

[复制链接]
发表于 2008-3-19 17:18:14 | 显示全部楼层 |阅读模式
如题
回复

使用道具 举报

发表于 2008-3-20 08:38:56 | 显示全部楼层
正在研究,有结果马上跟帖告知
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-21 10:18:43 | 显示全部楼层
顶,有结果了吗?
回复 支持 反对

使用道具 举报

发表于 2008-3-21 10:20:33 | 显示全部楼层
还没...
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-24 08:41:43 | 显示全部楼层
ding
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-25 13:14:25 | 显示全部楼层
等待中......
回复 支持 反对

使用道具 举报

发表于 2008-3-26 10:19:02 | 显示全部楼层
需要通过DecisionBroker中的方法来控制,稍后整理一下相关的方法
回复 支持 反对

使用道具 举报

发表于 2008-3-26 12:48:08 | 显示全部楼层

例子

//根据传入的ADecisionBroker,将所有展开的维关闭、将所有关闭的维展开
procedure OpenCloseDim(ADecisionBroker: TDecisionBroker);
var
  I: Integer;
  lMsg, lDimName: string;
  lDS: TDecisionSource;
begin
  lMsg := '';
  lDS := ADecisionBroker.DecisionSource;
  //遍历所有的维,nDims是维的总数
  for I := 0 to lDS.nDims - 1 do
  begin
    //根据“维绝对索引”获取维显示名称
    lDimName := lDS.GetDimensionName(I);
    //根据“维绝对索引”获取维的状态,并判断是否处于打开状态
    if (lDS.GetState(I) = TDimState.dmOpen) then
      lMsg := lMsg + 'Close: ' + lDimName + #13#10 else
      lMsg := lMsg + 'Open: ' + lDimName + #13#10;
    //根据“维索引”来切换维的状态
    lDS.ToggleDimIndex(lDS.GetGroup(I), lDS.GetIndex(I, False), False);
  end;
  jsDialogs.ShowMsg(lMsg, '');
end;

{
  用到的枚举类型和方面声明:

  TDimState = (dmClosed, dmOpen, dmDrilled, dmPaged, dmNone);
  TDimGroup = (dgRow, dgCol, dgSum, dgPage, dgNone);

  function TDecisionSource.GetDimensionName(iDim: Integer): String;
  function TDecisionSource.GetState(iDim: Integer): TDimState;
  function TDecisionSource.GetGroup(iDim: Integer): TDimGroup;
  function TDecisionSource.GetIndex(iDim: Integer; bOpen: Boolean): Integer;
  procedure TDecisionSource.ToggleDimIndex(dimGroup: TDimGroup; Index: Integer; bOpen: Boolean);

}
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-26 13:49:50 | 显示全部楼层
谢谢先
回复 支持 反对

使用道具 举报

发表于 2008-3-27 13:10:09 | 显示全部楼层
记得反馈结果。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 17:26 , Processed in 0.041383 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表