TableIslands : IPrxTableIslands;
The TableIslands property determines a collection of relational data areas.
Sub main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Report: IPrxReport;
TabIs: IPrxTableIslands;
TI: IPrxTableIsland;
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;
TI.Source := Report.TableSources.Item(1);
TI.Sheet := Report.Sheets.Item(1);
Range := (TI.Sheet As IPrxTable).TabSheet.Cell(1, 1);
TI.Range := Range;
TI.Save;
MObj.Save;
End Sub main;
After executing the example parameters of the specified relational data area are changed. The identifier of the regular report - Report.
See also: