IPrxTableIslandLayout.Island

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    TabIs: IPrxTableIslands;
    TI: IPrxTableIsland;
    Layout: IPrxTableIslandLayout;
    Id: String;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REPORT").Bind As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item(0);
    Layout := TI.Layout;
    Id := Layout.Island.Id;
    Debug.WriteLine(Id);
End Sub UserProc;