procedure ExpandViewGroups(AView: TcxGridTableView; ALevel: Integer);
var
I: Integer;
begin
AView.BeginUpdate;
try
AView.DataController.Groups.FullExpand;
for I := AView.DataController.RowCount - 1 downto 0 do
if AView.DataController.GetRowInfo(I).Level > ALevel then
AView.DataController.Groups.ChangeExpanding(I, False, True);
finally
AView.EndUpdate;
end;
end;