Campos calculados

[ecfisa]

Hola Parsec.

Coincido con Marcos, sin dudas es el caso.

El evento OnCalcFields se dispara cuando se cambia la fila activa de la tabla o cuando la propiedad AutoCalcFields esta activa y se produce alguna modificación en los campos de la primera.

La cantidad de veces que se dispare el evento OnCalcFields al abrir el DataSet, depende de la cantidad de filas que el componente requiera mostrar en ese momento.

Para comprobar esto de manera simple, agregá un ListBox y reducí el DBGrid para que muestre una sola fila y luego usa este código:

Código Delphi [-]
...
implementation 

var
  cont : Integer = 0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DataSet.Open;
end;

procedure TForm1.DataSetCalcFields(DataSet: TDataSet);
begin
  ListBox1.Items.Add('CalcFields '+IntToStr(cont));   
  Inc(cont);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DBGrid1.Height := DBGrid1.Height + 50;
end;

Verás que a medida que el DBGrid crece en altura se van reflejando las ocurrencias en el ListBox.

Saludos