Ver Mensaje Individual
  #2  
Antiguo 08-10-2007
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
Hola Gabo, no he manejado QrStringBand del quickreport, pero podrias tambien recorrer tu dataset utilizando el evento OnNeedData del quickReport.

En dicho evento debes colocar lo siguiente para recorrer tu dataset, el resultado se mostrara en un QRLabel, en este caso lo que estoy usando es una banda Detail ahi dentro el QRLabel.

Código Delphi [-]
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
var
  cadena : string;
begin
  MoreData := not Query1.Eof;
  if MoreData then
  begin
    cadena:=Query1.Fields[1].AsString;
    QRLabel1.caption := cadena;
    Query1.Next;
  end;
end;

y despues en tu evento BeforePrint del quickReport inicializas tu dataset con Query1.First;

Tambien puedes usar el componente QrExpr para hacer la sumatoria, con la función de sum que tiene, solo tienes que indicarle sobre que campo quieres que haga ese sum.

Espero te sirva.
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita