trasladar el valor de un Qrexpr1 a un campo de tabla

[suppergus]

Hola a todos !

tengo una forma con dos tablas (1 y 2) y un quickreport donde aparecen los datos de una venta de varios productos (tabla 1), la suma de los precios aparece en un QRExpr1 y lo que quiero es que cuando se ejecute la vista previa o cuando se imprima pase el valor que muestra este componente a un campo de la tabla 2.

trabajo con delphi 6, tablas paradox. Ojalá pueda alguien ayudarme

Gracias.

[marcoszorrilla]

Esto es un ejemplo de como puede hacerse:

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
nVal:Double;
begin
nVal:=QrExpr1.Value.dblResult;
ShowMessage(FormatFloat(',0.00',nVal));
end;


No tienes más que sustituir nVal, que es una variable que yo he creado a modo de ejemplo por el nombre del campo.

Otra cosa es que yo no estoy de acuerdo con el procedimiento ya que pienso que esto debe resolverse por código contra la misma Tabla o tablas.

En cualquier caso tienes que tener en cuenta que yo lo he declarado como Double porque en mi caso el ejemplo sabía que el resultado era este, si fuera otro esta es la información que necesitas.

type TQREvResultType = (resInt, resDouble, resString, resBool, resError)
type TQREvResult = record
case Kind : TQREvResultType of
resInt : (intResult : Longint);
resDouble : (dblResult : Double);
resString : (strResult : String[255]);
resBool : (booResult : Boolean);
end


Un Saludo.