IPrxReport.TableSources

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    TabIs: IPrxTableIslands;
    TI: IPrxTableIsland;
    Sources: IPrxTableSources;
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.Save;
    MObj.Save;
End Sub UserProc;