Count: Integer;
The Count property returns the number of relational data areas of the regular report.
Sub Main;
Var
MB: IMetabase;
Report: IPrxReport;
TabIs : IPrxTableIslands;
Count : Integer;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("Report").Bind As IPrxReport;
TabIs := Report.TableIslands;
Count := TabIs.Count;
Debug.WriteLine(Count.ToString);
End Sub Main;
After executing the example the console window displays the number of relational data areas. Report - identifier of the regular report, which sheet contains relational data areas.
See also: