Programación General > Delphi

 Suma Total De Un Campo En Un Dbgrid

(1/1)

LAGUNA5:
Hola amigos necesitaria saber que codigo poner en un campo calculado o un tbdedit para que haga la suma total de un campo (precio) en un dbgrid. Muchas gracias.

ushedipe:
:comp: la forma más ágil de realizar esa sumatoria es recorrer la consulta en el momento que se hace el draw del DBGrid; para ello se verifica que la consulta no esté vacía:
--- Código: Text ---if not Query.isempty then .
se inicializa en cero la variable que contendrá la sumatoria:
--- Código: Text ---suma:=0; .
luego se vá al principio de la consulta:
--- Código: Text ---Query.first; .
y empieza a recorrer la consulta hasta que llegue al final:
--- Código: Text ---while not Query.EOF do .
una vez dentro del ciclo se va acumulando en una variable el valor requerido:
--- Código: Text ---suma:=suma+Query.FieldbyName('valor').Value; .
se avanza al próximo registro:
--- Código: Text ---Query.next;  y... listo con el valor almacenado en suma tienes para procesarlo o mostralo según la necesidad.
Suerte!!! :ph34r:

Eternal Idol:
Por favor antes de responder a un hilo mira de cuando es:

Escrito el Febrero 10, 2004 03:01 pm

ushedipe:
:comp: pese a que la fecha de formulación de la pregunta data desde hace ya 3 años y medio, me pareció prudente dar alguna respuesta, no se sabe si a alguien mas le puede servir!  :ph34r:

floresmikael:
Hola
Estaba revisando tu información. Gracias por el dato, es excelente.

Navegación

[0] Índice de Mensajes