IPrxReportUserEvents.EventOnAfterAddTableIsland

Fore Syntax

Sub EventOnAfterAddTableIsland(Args: IUiPrxTableIslandEventArgs);
Begin
//set of operators;
End Sub EventOnAfterAddTableIsland;

Fore.NET Syntax

Sub EventOnAfterAddTableIsland(Args: Prognoz.Platform.Interop.Report.UiPrxTableIslandEventArgs);
Begin
//set of operators;
End Sub EventOnAfterAddTableIsland;

Parameters

Args. The parameter that enables the user to work with event parameters.

Description

The EventOnAfterAddTableIsland method implements the event that occurs after adding a relational data area.

Comments

To implement the event that occurs after deleting relational data area, use the IPrxReportUserEvents.EventOnAfterDeleteTableIsland method.

Fore Example

Executing the example requires a regular report. Connect a unit to the regular report, select the connected unit an the EventsClass class as an event handler. Add links to the Metabase, Report, Ui system assemblies in the unit.

Class EventsClass: ReportEvents
Public Sub OnAfterAddTableIsland(TableIsland : IPrxTableIsland);
Begin
WinApplication.InformationBox("Relational data area is added " + TableIsland.Id);
End Sub OnAfterAddTableIsland;
Public Sub OnAfterDeleteTableIsland(TableIsland : IPrxTableIsland);
Begin
WinApplication.InformationBox("Relational data area is deleted " + TableIsland.Id);
End Sub OnAfterDeleteTableIsland;
End Class EventsClass;

After adding and deleting the relational data area an information message is displayed.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

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("Relational data area is added " + TableIsland.Id, Null);
End Sub OnAfterAddTableIsland;
Public Override Sub OnAfterDeleteTableIsland(TableIsland : IPrxTableIsland);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Relational data area is deleted " + TableIsland.Id, Null);
End Sub OnAfterDeleteTableIsland;
End Class EventsClass;