Naming(Index: Integer): IPrxDataIslandNaming;
Naming[Index: integer]: Prognoz.Platform.Interop.Report.IPrxDataIslandNaming;
Index. Индекс наименования элементов.
Свойство Naming возвращает объект, содержащий наименование элементов измерения.
Индекс наименования передается посредством параметра Index.
Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «Button1» и компонент UiReport с идентификатором «UiReport1». В качестве источника данных используется регламентный отчет с настроенной иерархией. Пример является обработчиком события OnClick для компонента «Button1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Report: IPrxReport;
DI: IPrxDataIsland;
DimModel: IDimensionModel;
DIProp: IPrxDataIslandProperties;
Top: IPrxDataIslandDimension;
Level: IPrxDataIslandLevel;
Naming: IPrxDataIslandNaming;
NamingCount: Integer;
Begin
Report := UiReport1.Instance As IPrxReport;
DI := Report.DataIslands.Item(0);
DimModel := DI.Slice.TopHeader.Item(0).Dimension.Dimension;
DIProp := DI.Properties;
Top := DIProp.Dimension(DimModel);
Level := Top.Level(DimModel.Levels.Item(0));
Naming := Level.Naming(0);
NamingCount := Level.NamingCount;
End Sub Button1OnClick;
После выполнения примера в переменной «Naming» будет содержаться первое наименование элементов заданного измерения, расположенного в срезе по столбцам, в переменной «NamingCount» будет содержаться количество строк для наименований элементов первого измерения, расположенного в срезе по столбцам.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Добавьте ссылки на системные сборки «Dimensions», «ForeSystem», «Report».
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Report;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Report: IPrxReport;
DI: IPrxDataIsland;
DimModel: IDimensionModel;
DIProp: IPrxDataIslandProperties;
Top: IPrxDataIslandDimension;
Level: IPrxDataIslandLevel;
Naming: IPrxDataIslandNaming;
NamingCount: Integer;
Begin
Report := uiReportNet1.ReportUi.Instance As IPrxReport;
DI := Report.DataIslands.Item[0];
DimModel := DI.Slice.TopHeader.Item[0].Dimension.Dimension;
DIProp := DI.Properties;
Top := DIProp.Dimension[DimModel];
Level := Top.Level[DimModel.Levels.Item[0]];
Naming := Level.Naming[0];
NamingCount := Level.NamingCount;
End Sub;
См. также: