DimRange(DimKey: Integer; [LevelIndex: Integer = -1]): ITabRange;
DimRange [DimKey: uinteger; LevelIndex: integer]: Prognoz.Platform.Interop.Tab.ITabRange;
DimKey. Ключ измерения;
LevelIndex. Уровень измерения.
Свойство DimRange возвращает диапазон ячеек таблицы, в котором отображаются элементы указанного по ключу измерения.
Уровень измерения игнорируется, если LevelIndex принимает значение «-1».
Для возвращения диапазона ячеек таблицы, в котором отображаются итоги по стобцам/строкам, используйте IEaxGrid.TotalsRange.
Для выполнения примера необходимо наличие экспресс-отчета с идентификатором «EXPRESS», содержащего таблицу с итогами по столбцам. Одним из измерений, по которому построена таблица, является календарное измерение с ключом «10127».
Добавьте ссылки на системные сборки: Express, Metabase, Tab.
Sub UserProc;
Var
MB: IMetabase;
Analyzer: IEaxAnalyzer;
Grid: IEaxGrid;
DimRange, TotalsRange: ITabRange;
Begin
MB := MetabaseClass.Active;
Analyzer := MB.ItemById("EXPRESS").Bind As IEaxAnalyzer;
Grid := Analyzer.Grid;
DimRange := Grid.DimRange(10127, -1);
Debug.WriteLine
("Адрес диапазона ячеек, в которых отображаются элементы измерения - " + DimRange.Address);
TotalsRange := Grid.TotalsRange(True);
Debug.WriteLine
("Адрес диапазона ячеек, в которых отображаются итоги по столбцам - " + TotalsRange.Address);
End Sub UserProc;
После выполнения примера в окно консоли выведутся адреса диапазонов ячеек, в которых отображаются:
элементы измерения;
итоги по столбцам.
Необходимые требования и результат выполнения примера Fore.NET совпадает с примером Fore.
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Analyzer: IEaxAnalyzer;
Grid: IEaxGrid;
DimRange, TotalsRange: ITabRange;
Begin
MB := Params.Metabase;
Analyzer := MB.ItemById["EXPRESS"].Bind() As IEaxAnalyzer;
Grid := Analyzer.Grid;
DimRange := Grid.DimRange[10127, -1];
System.Diagnostics.Debug.WriteLine
("Адрес диапазона ячеек, в которых отображаются элементы измерения - " + DimRange.Address);
TotalsRange := Grid.TotalsRange[True];
System.Diagnostics.Debug.WriteLine
("Адрес диапазона ячеек, в которых отображаются итоги по столбцам - " + TotalsRange.Address);
End Sub;
См. также: