Count : Integer;
Свойство Count возвращает количество групп.
Sub Main;
Var
MB: IMetabase;
Report : IPrxReport;
TabIs : IPrxTableIslands;
TI : IPrxTableIsland;
Grs : IPrxTableIslandGroupings;
Count : Integer;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("Report").Bind As IPrxReport;
TabIs := Report.TableIslands;
TI := TabIs.Item(0);
Grs := TI.Groupings;
Count := Grs.Count;
Debug.WriteLine(Count);
End Sub Main;
После выполнения примера в окно консоли будет выведено количество групп. «Report» - идентификатор регламентного отчета, на листе которого расположена реляционная область данных.
См. также: