66,00 no es double ???

[chele]

Por que no es un dataset, yo creo el codigo segun necesito, el cliente mete muchas variables y creo el sql, a partir del sql creo el resto, no es un dataset.

Esto es mas menos :

Código Delphi [-]
        qry := TIBQuery.Create(qry);
        qry.database := datamodule2.database;
        Qry.SQL.Text := cadenaSQL;
        qry.open();

        llistat := Tlfactautorizaciones21.create(Self);

        llistat.QuickRep1.DataSet := qry;

Donde cadenaSQL depende de muuuchas cosas, es asi como nos han dicho qeu tenemos que hacerlo en la empresa y no me dejarian cambiarlo.

¿se te ocurre otra forma de hacerlo?

[__cadetill]

jeje, cuando hablo de dataset, lo digo de forma genérica, es decir, a cualquier descendiente de la clase dataset (como puede ser un TIBQuery)

La idea sigue siendo la misma, da igual que lo que tengas detrás sea un TIBQuery, como un TQuery, como TTable, como un TIBDataset,....... Lo importante es que deriban todos de Dataset y que todos tienen el FieldByName que te menciono en el ejemplo (ya que este método es de la clase dataset, no de la clase TIBQuery u otra)

Pruebalo y me comentas

[chele]

Ah si ??? juas cada dia me doy mas cuenta de lo poco que se jeje.

Y como le referencio ???

Es decir todo esto lo hago en otro form ... ¿como lo referencio?

[__cadetill]

Bueno, la operación de suma la haces en el OnPrint de un TQrDbText, no?

Si es así, en principio sólo tendrías que poner la linea de código que te he pasado (siempre y cuando suma1 sea de tipo Float)

[__cadetill]

Perdón, la linea anterior tiene un error, tendría que quedar algo así

Código Delphi [-]
if Sender is TQrDbText then
  suma1 := suma1 + TQrDbText(Sender).DataSet.FieldByName(TQrDbText(Sender).DataField).AsFloat;

[chele]

Bua funciona perfecto, gracias