IPrxTableIsland.Revert

Syntax

Revert;

Description

The Revert method cancels changes made when editing the relational data area.

Example

Sub Main;

Var

MB: IMetabase;

MObj : IMetabaseObject;

Report : IPrxReport;

TabIs : IPrxTableIslands;

TI : IPrxTableIsland;

Sources : IPrxTableSources;

Range : ITabRange;

Begin

MB := MetabaseClass.Active;

MObj := MB.ItemById("Report").Edit;

Report := MObj As IPrxReport;

TabIs := Report.TableIslands;

TI := TabIs.Item(0);

TI := TI.Edit;

Sources := Report.TableSources;

TI.Source := Sources.Item(1);

TI.Sheet := Report.Sheets.Item(1);

Range := (TI.Sheet As IPrxTable).TabSheet.Cell(20,1);

TI.Range := Range;

TI.Revert;

MObj.Save;

End Sub Main;

After executing the example parameters of the relational area are not changed. Report - identifier of a regular report.

See also:

IPrxTableIsland