DataObject: IMetabaseObject;
The DataObject property returns a repository object corresponding to the current relational data source.
Executing the example requires that the repository contains a regular report with the Report_1 identifier.
Sub Main;
Var
MB: IMetabase;
Rep: IPrxReport;
TSs: IPrxTableSources;
TS: IPrxTableSource;
Begin
MB := MetabaseClass.Active;
Rep := MB.ItemById("Report_1").Bind As IPrxReport;
TSs := Rep.TableSources;
For Each TS In TSs Do
Debug.WriteLine(TS.DataObject.Id);
End For;
End Sub Main;
After executing the example the development environment console displays a list of identifiers of repository objects used as relational data sources in the regular report.
See also: