IPrxReportUserEvents.EventOnAfterAddTableIsland

Синтаксис Fore

Sub EventOnAfterAddTableIsland(Args: IUiPrxTableIslandEventArgs);
Begin
   //набор операторов;
End Sub EventOnAfterAddTableIsland;

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

Sub EventOnAfterAddTableIsland(Args: Prognoz.Platform.Interop.Report.UiPrxTableIslandEventArgs);
Begin
   //набор операторов;
End Sub EventOnAfterAddTableIsland;

Параметры

Args. Параметр, позволяющий работать с параметрами события.

Описание

Метод EventOnAfterAddTableIsland реализует событие, которое наступает после добавления реляционной области данных.

Комментарии

Для реализации события, которое наступит после удаления реляционной области данных, используйте метод IPrxReportUserEvents.EventOnAfterDeleteTableIsland.

Пример Fore

Для выполнения примера предполагается наличие регламентного отчета. Подключите модуль в регламентный отчет, в качестве обработчика событий выберите подключенный модуль и класс «EventsClass». В модуле подключите системные сборки: Metabase, Report, Ui.

Class EventsClass: ReportEvents
Public Sub OnAfterAddTableIsland(TableIsland : IPrxTableIsland);
Begin
    WinApplication.InformationBox("Была добавлена реляционная область данных " + TableIsland.Id);
End Sub OnAfterAddTableIsland;
Public Sub OnAfterDeleteTableIsland(TableIsland : IPrxTableIsland);
Begin
    WinApplication.InformationBox("Была удалена реляционная область данных " + TableIsland.Id);
End Sub OnAfterDeleteTableIsland;
End Class EventsClass;

После добавления/удаления реляционной области данных будет выдано информационное сообщение.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

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

Public Class EventsClass: PrxForeNetReportUserEventsClass
Public Override Sub OnAfterAddTableIsland(TableIsland : IPrxTableIsland);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Была добавлена реляционная область данных " + TableIsland.Id, Null);
End Sub OnAfterAddTableIsland;
Public Override Sub OnAfterDeleteTableIsland(TableIsland : IPrxTableIsland);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Была удалена реляционная область данных " + TableIsland.Id, Null);
End Sub OnAfterDeleteTableIsland;
End Class EventsClass;

См. также:

IPrxReportUserEvents

Связанные записи

Требование