Ver Mensaje Individual
  #11  
Antiguo 21-04-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola Eduardo y jirbert, como te dice eduardo debes recorrer tu DataSet para hacer el calculo de la suma o hacer una consulta utilizando un Query.

Ej. para hacer una suma recorriendo un DataSet, aquí debes tomar en cuenta dos cosas, al recorrer tu DataSet veraz como todos los componentes que estan asociados a tu dataSet iran mostrando los registros a medida que los recorres, para evitar esto puedes utilizar DisableControls para desabilitar dichos componentes hasta que termines de recorrer tu DataSet. Y también talvez ponerte un marcador (BookMark) para que una vez terminado de recorrer regreses al registro donde estaba incialmente.

Código Delphi [-]
var
 Precio : Currency;
 Marca : TBookMarkStr;
begin
    precio := 0;
    Marca := MiTabla.Bookmark;
    MiTabla.DisableControls;
    try
     MiTabla.First;
      While Not MiTabla.Eof do
      begin
       Precio := Precio + MiTabla.FieldbyName('MiCampo').ASCurrency;
 
       MiTabla.Next;
      end;
      Label1.Caption := CurrToStr(Precio);
    finally
     MiTabla.EnableControls;
     MiTabla.Bookmark := Marca;
    end;

y si lo quieres hacer con una consulta, es suficiente que pongas "Select Sum(MiCampo) From MiTabla".

Saluditos
__________________
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