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 24-07-2006
Choclito Choclito is offline
Miembro
 
Registrado: jul 2004
Posts: 169
Poder: 20
Choclito Va por buen camino
Sumar columna de un dbgrid

Hola amigo del foro, como siempre espero su colaboracion
mi problema es el siguiente estoy asiendo un sistema de contabilidad y me pidieron q haga un formulario donde ya se tenga en una grilla las cuentas contables y en la columna del debe y haber se registre los monton , hice que el dbgrid sea editable con updatesql
Mi problema es que quiero sumar los datos que se registren en el dbgrid pero que todabia no estan en la base de datos y para eso utilice el siguiente codigo
Código Delphi [-]
procedure TF_Asiento_Similar.JvDBGrid1ColEnter(Sender: TObject);
 var debe,haber:real;
  begin
modulo_contabilidad.MDOQ_Similar.DisableControls;
if ((modulo_contabilidad.mdoq_similar.FieldByName('debe').AsFloat>0)and(modulo_contabilidad.mdoq_simila  r.FieldByName('haber').AsFloat>0)) then
showmessage('solo una tiene q tener valor');
debe:=0;
haber:=0;
modulo_contabilidad.MDOQ_Similar.First;
while not modulo_contabilidad.MDOQ_Similar.eof do
begin
debe:=debe+modulo_contabilidad.MDOQ_Similar.FieldByName('debe').AsFloat;
haber:=haber+modulo_contabilidad.MDOQ_Similar.FieldByName('haber').AsFloat;
modulo_contabilidad.MDOQ_Similar.next;
end;
edit2.Text:=FormatFloat('0.00',strtofloat(floattostr(debe)));
edit4.Text:=FormatFloat('0.00',strtofloat(floattostr(haber)));
Modulo_Contabilidad.MDOQ_Similar.EnableControls;
end;
en el evento oncolenter no se si es el evento adecuado ...tambien en este evento trato de controlar q solo una de las columnas tiene q tener cantidad registrada, me funciona no como quisiera pues tengo q mover el cursor dentro del dbgrid para q haga la sumatoria .
Mi problema es cuando tengo 3 o mas cuentas contables ahi la ultima fila se cambia por la primera y mientras escribo en el dbgrid se duplica la cantidad de filas porq pasa eso???
Porque para dos filas trabaj regularmente y para tres no funciona puesto q se duplica y la ultima fila se remplaza ??
En que evento del dbgrid o del query tengo q trabajar?
Por si no me explique bien quiero que se sume las columnas en edits mientras el usuario va registrando en el dbgrid
Muchas gracias por la ayuda porfavor q la necesito
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
sumar la columna de un dbgrid pharaonhx Varios 3 12-06-2008 15:27:27
Sumar valores de una columna en mysql coletaun Varios 1 08-01-2006 22:05:48
sumar columna para que salgan en query narciso SQL 4 26-07-2005 10:51:43
Sumar una columna en QReport rjsitruiz Impresión 2 28-06-2004 22:38:15
sumar columna de un dbgrid jpcancino Conexión con bases de datos 4 11-03-2004 16:33:37


La franja horaria es GMT +2. Ahora son las 17:29:48.


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