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 19-05-2007
Avatar de fjcg02
[fjcg02] fjcg02 is offline
Miembro Premium
 
Registrado: dic 2003
Ubicación: Zamudio
Posts: 1.410
Poder: 22
fjcg02 Va camino a la fama
Prueba como dice marcoszorrilla en el evento onchange, y utiliza los valores campo.Oldvalue y campo.value, es decir, el valor antes de cambiar y el nuevo valor.

Es decir, presentas el total en un campo, y cada vez que cambias un dbedit, le restas el valor del campo que cambias y le sumas el nuevo valor

Código Delphi [-]
procedure TCardexForm1.DBEdit3OnChanget(Sender: TObject);
begin
 try
   dm.TbEmpleadosSueldoMensual.AsFloat :=dm.TbEmpleadosSueldoMensual.AsFloat 
                                                        -(Sender as TDBEdit).Field.OldValue 
                                                         +(Sender as TDBEdit).Field.Value
 Except
 end;
end;
Asocias la misma funcion a todos los DBEdits, y a correr.


Suerte y saludos
__________________
Cuando los grillos cantan, es que es de noche - viejo proverbio chino -
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
Que significa este codigo? D-MO PHP 14 23-01-2006 10:08:21
No me gusta este Codigo, Me ayudan?! marceloalegre Varios 5 28-10-2005 01:27:27
Como mejorar la velocidad en este caso.... Alfredo Varios 4 02-09-2005 22:45:11
error sumando campos weke SQL 2 02-06-2004 14:52:33
Por que no funciona este codigo en XP? kia Varios 3 15-10-2003 21:39:33


La franja horaria es GMT +2. Ahora son las 15:54:41.


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