sumar columna

[*Caro*]

Hola, puedes sumar la columna recorriendo tu DataSet (query) que esta enlazado a tu DBGrid o haciendo otra consulta con SUM, revisa este hilo http://www.clubdelphi.com/foros/showthread.php?t=58376

Saluditos

[Memo6015]

hola caro, gracias por tu respuesta

pero ademas de sumar esos datos necesito extraerlos como hago eso?

[[maeyanes]]

Hola...

Extraer los datos? Explicate mejor...


Saludos...

[Memo6015]

claro es que ademas de la suma, me gustaria poder acceder a todos los promedios por ejemplo, tengo la columna promedio en la dbgrid

promedio
6.4
5.4
8.7
87.5

y poder sacar de la dbgrid por ejemplo el numero 8,7 y sumarlo con 5,4
o poder sumar 87,5 con 6,4

poder sacar uno o mas numeros de la dbgrid, se que puedo usar otro objeto pero realmente me gusta como se ve en la dbgrid, como puedo hacer eso??

[[maeyanes]]

Hola...

El DBGrid es solo un componente que sirve para representar los datos que devuelve un TDataSet, por lo que para tener acceso a los datos puedes usar los métodos de este último:

Código Delphi [-]
ShowMessage(DBGrid1.DataSource.DateSet.FieldByName('Promedio').AsString);

Si quieres recorrerlos uno a uno, puedes usar un ciclo while not DataSet.Eof do:

Código Delphi [-]
with DBGrid1.DataSource.DateSet do
begin
  First;
  while not Eof do
  begin
    ShowMessage(FieldByName('Promedio').AsString);
    Next
  end
end

Espero que esto sea lo que andas buscando...


Saludos...

[*Caro*]

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

[Memo6015]

que grande maestros muchas gracias, creo que con esas respuestas me queda solo probar

muchas gracias era para un trabajo en la universidad

gracias graciassssss

[ctrl_attack]

Gracias a mi tambien me ah servido