diff --git a/Source/GUIBase/uViewGrid.pas b/Source/GUIBase/uViewGrid.pas
index 640049a3..de355e5a 100644
--- a/Source/GUIBase/uViewGrid.pas
+++ b/Source/GUIBase/uViewGrid.pas
@@ -138,16 +138,19 @@ end;
 procedure TfrViewGrid.actQuitarAgrupacionesExecute(Sender: TObject);
 var
   Columna: TcxGridDBColumn;
-  i: Integer;
+  i,j: Integer;
 begin
   inherited;
-  for i := 0 to  cxGridView.ColumnCount - 1 do
+  for j := 0 to cxGrid.ViewCount - 1 do
   begin
-    Columna := (cxGridView as TcxGridDBTableView).Columns[i];
-    if not (Columna.GroupIndex < 0) then
+    for i := 0 to  (cxGrid.Views[j] as tcxGridDBTableView).ColumnCount - 1 do
     begin
-      Columna.GroupIndex := -1;
-      Columna.Visible := True;
+      Columna := (cxGrid.Views[j] as TcxGridDBTableView).Columns[i];
+      if not (Columna.GroupIndex < 0) then
+      begin
+        Columna.GroupIndex := -1;
+        Columna.Visible := True;
+      end;
     end;
   end;
 end;