ITabPageBreaks.Add

Синтаксис Fore

Add(ItemBreak: Integer);

Синтаксис Fore.NET

Add(ItemBreak: integer);

Параметры

ItemBreak. Индекс разрыва в таблице.

Описание

Метод Add устанавливает новый разрыв в таблице.

Пример Fore

Для выполнения примера понадобится регламентный отчёт с идентификатором «Report».

Sub UserProc;
Var
    MB: IMetaBase;
    Report: IPrxReport;
    Tab: ITabSheet;
    TabPS: ITabPageSettings;
Begin
    MB := MetaBaseClass.Active;
    Report := MB.ItemById("Report").Edit As IPrxReport;
    Tab := (Report.Sheets.Item(0) As IPrxTable).TabSheet;
    TabPS := Tab.PageSettings;
    TabPS.ColumnsBreaks.Add(3);
    TabPS.RowsBreaks.Add(5);
    (Report As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера на первой странице отчёта будут созданы разрывы по столбцам и по строкам.

Пример Fore.NET

Для выполнения примера понадобится регламентный отчёт с идентификатором «Report».

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

Public Sub UserProc(Params: StartParams);
Var
    MB: IMetaBase;
    Report: IPrxReport;
    Tab: ITabSheet;
    TabPS: ITabPageSettings;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["Report"].Edit() As IPrxReport;
    Tab := (Report.Sheets.Item[0] As IPrxTable).TabSheet;
    TabPS := Tab.PageSettings;
    TabPS.ColumnsBreaks.Add(3);
    TabPS.RowsBreaks.Add(5);
    (Report As IMetabaseObject).Save();
End Sub;