Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-09-2003
magm2000 magm2000 is offline
Miembro
 
Registrado: ago 2003
Posts: 32
Poder: 0
magm2000 Va por buen camino
Sumar columnas de un DBGRID

Hola Quisiera saber como sumar una columna de un DBGrid que se puede modificar y colocar el resultado en una etiqueta. Es decir cada vez que se cambie esa columna la suma cambiará y la etiqueta debe reflejar el nuevo total de todos los valores de esa columna.
Gracias.
Responder Con Cita
  #2  
Antiguo 26-09-2003
Avatar de javiermorales
javiermorales javiermorales is offline
Miembro
 
Registrado: may 2003
Ubicación: Alicante
Posts: 272
Poder: 22
javiermorales Va por buen camino
Al tratarse de un DBGrid, debes tenerlo asociado a una tabla, si la columna se relaciona con un campo, debes crear en el componente de acceso a datos que referencia la tabla un campo calculado, que se actualizará en el evento OncalcFields con cada cambio, ese campo calculado realizará la suma de toda la columna y en el evento AfterPost, podrías hacer que se refrescase la etiqueta.

Espero que te sirva. Un saludo.
Responder Con Cita
  #3  
Antiguo 26-09-2003
Viet Viet is offline
Miembro
 
Registrado: jul 2003
Ubicación: Argentina - Mar del Plata
Posts: 252
Poder: 21
Viet Va por buen camino
Hola :

Podrias hacerlo de varias formas, pero basicamente existen dos:

1) calculando el valor siempre que haya cambios mediante un Scroll
2) con una consulta independiente.

A mi me parece mucho mejor la segunda opcion. Para eso tenes que definir una Query nueva del estilo:
Código:
  Select Sum(campo)
  From TablaX
Y en el evento AfterPost y AfterOpen de el DataSet que tienes apuntando por el DBGrid hacer un Close/Open de tu QueryTotal(la que calcula el total)

Saludos
__________________
Marín Ignacio Borthiry (Viet) - "El hombre arriesga su vida cada vez que elije y eso es lo que lo hace libre" ;)
Responder Con Cita
  #4  
Antiguo 27-09-2003
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Poder: 0
Ruben_Cu Va por buen camino
Hola a todos, para lo que quieres puedes leer este hilo , en el tienes una manera de hacer lo que quieres, puede que otra manera sea como escribe javiermorales y quisiera saber como logra sumar una columna con el evento OnCalcFields, este forma no la conozco y agradecería, de ser posible, ver su implementación.
Saludos
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 16:40:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi