Ver Mensaje Individual
  #7  
Antiguo 27-08-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 de nuevo Memo, tu DBGrid esta asociado a un DataSet, entonces tu debes obtener de tu DataSet y no de tu DBGrid, si quieres sumar la columna promedio entonces recorres el DataSet que tienes, como en el hilo que te dije que revisaras.

Código Delphi [-]
var  Total : Currency;
Marca : TBookMarkStr;
begin
 Total := 0;
 Marca := MiTabla.Bookmark;//Almacenamos la posición del registro actual en nuestra marca  
 MiTabla.DisableControls;//Deshabilitamos los controles enlazados a nuestro  DataSet
 MiTabla.First;
 While Not MiTabla.Eof do
  begin
   Total := Total + MiTabla.FieldbyName('promedios').ASCurrency;
   MiTabla.Next;
  end;
 MiTabla.EnableControls;//Habilitamos nuevamente los controles
 MiTabla.Bookmark := Marca;//Restauramos a la posición del registro de nuestra marca
 Showmessage(CurrToStr(Total));

Has la prueba de hacer esto en el OnClick de tu DbGrid.

Código Delphi [-]
 showmessage(MiTabla.FieldbyName('promedios').ASString);

Veras que te dara lo que tienes en el campo promedios de la fila seleccionada.

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.

Última edición por Caro fecha: 27-08-2008 a las 20:30:58.
Responder Con Cita