Remove(Index: Integer): Boolean;
Index - индекс группы.
Метод Remove удаляет группу по заданному индексу.
Sub Main;
Var
MB: IMetabase;
MObj : IMetabaseObject;
Report : IPrxReport;
TabIs : IPrxTableIslands;
TI : IPrxTableIsland;
Grs : IPrxTableIslandGroupings;
Gr : IPrxTableIslandGrouping;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Report").Edit;
Report := MObj As IPrxReport;
TabIs := Report.TableIslands;
TI := TabIs.Item(0);
TI := Ti.Edit;
Grs := TI.Groupings;
If Grs.Remove(0) Then
Debug.WriteLine("Yes");
Else
Debug.WriteLine("No");
End If;
TI.Save;
MObj.Save;
End Sub main;
После выполнения примера будет удалена заданная группа, и в окно консоли будет выведено соответствующее сообщение. «Report» - идентификатор регламентного отчета, на листе которого расположена реляционная область данных.
См. также: