Ventas por mes

[ecfisa]

Hola Jorge.

Realmente no veo la necesidad de complicarte usando un TStringGrid...

De todos modos te hice esta función que pasa los campos de cualquier TIBQuery sin campos BLOB, a cualquier TStringGrid:

Código Delphi [-]
procedure IBQueryToStringGrid(IBQ: TIBQuery; Grd: TStringGrid);
var
  c,r : Integer;
begin
  Grd.ColCount := IBQ.FieldCount-1;
  Grd.RowCount := IBQ.RecordCount;
  r := 0;
  IBQ.First;
  while not IBQ.Eof do
  begin
    for c:= 0 to IBQ.RecordCount-1 do
      Grd.Cells[Grd.FixedCols+c, Grd.FixedRows+r] := IBQ.Fields[c].AsString;
    IBQ.Next;
    Inc(r);
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  IBQueryToStringGrid(IBQuery4, StringGrid1);
end;

Y por favor cuando pongas código Delphi usa las etiquetas [delphi] tu_codigo [/delphi] como te mencionó antes duilioisola.

Saludos