Count: Integer;
The Count property returns the number of relational sources.
Sub Main;
Var
MB: IMetabase;
MObj : IMetabaseObject;
Report : IPrxReport;
TSources : IPrxTableSources;
Count : Integer;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Report").Edit;
Report := MObj As IPrxReport;
TSources := Report.TableSources;
Count := TSources.Count;
Debug.WriteLine(Count.ToString);
End Sub Main;
After executing the example the console window displays the number of relational data sources of the regular report. Report - identifier of a regular report.
See also: