Ver Mensaje Individual
  #2  
Antiguo 24-10-2007
Avatar de aeff
aeff aeff is offline
Miembro
 
Registrado: oct 2006
Ubicación: Cuba, Guantánamo
Posts: 348
Reputación: 18
aeff Va camino a la fama
Mira, yo usaría un campo de tipo *ftCurrency* en la RxMemoryData1 para el campo de dinero, las tablas paradox que tienen campo tipo *$ (money)* en realidad es datos Currency, ¿entiendes?, lo que en el DBGrid se muestran con el signo "$" al final y separados por "." y "," porque se le cambia la propiedad "DisplayFormat",

hasta aqui lo de las tabla y el campo Money, espero que me hallas entendido

ahora, para sumar una columna, primero, una variable que llevará la suma inicialmente = 0, posicionas la tabla en el primer registro (Tabla1.First), y mientras no se halla llegado al último registro de la tabla le sumas a la variable el valor del registro actual, mas o menos así

Código:
var
  total: real;
begin
  total := 0;
  tabla1.first;
  while not tabla1.eof do
   begin
    total := total + Tabla1.FieldByName('CampoMoney').AsCurrency;
    tabla1.next;
   end;
luego, para mostrar esa variable con un formato deseado puedes convertirla a string en otra variable y con unas de las funciones como "Format(...)", mostrarla con le formato que quieras,

espero que te sirva de algo,
saludos!

aeff!
Responder Con Cita