Suma de campos de un dbgrid

[ecfisa]

Empezado por lisc_dla

Estuvo probando el ejemplo pero no se donde colocar la función y me muestra un error

Podés colocarla inmediatamente despues de la declaración

Código Delphi [-]
interface

function SumarTotales(Grid: TDBGrid; const AFieldName: string): Currency;
....

y podes utilizarla en esa unidad sin problemas. También en otra unidad y agregarla en la declaración uses de la unit en que desees usarla. No mencionaste el error que te genera pero supongo que será por el alcance de la función.

Una ventaja que tiene la función que te puse, es que podés utilizarla para cualquier TDBGrid y para cualquier campo de la tabla asociada al mismo (de tipo numérico lógicamente).

Saludos.