Suma de 100 tablas dbf

[marcoszorrilla]

La cosa es fácil, no tienes más que hacer una consulta SQL por tabla e ir acumulando el resultado en una variable.

Código Delphi [-]
var
nParcial: Double;

begin
nParcial:=0;
Query1.Close;
Query1.Sql.Clear
Query1.Sql.Add('Select Sum(Importe) From MiTabla');
Query1.Open;

nParcial:=nParcial + Query1.Fields[0].AsFloat;

//Esta estructura hay que repetirla una vez por cada tabla.

end;

Si las tablas tienen la misma estructrura, es decir el campo a sumar se llama igual, te vale el Sql, solamente hay que cambiar el nombre de la tabla. Estos nombres se pueden guardar en una matriz y recorrerla mediante un bucle que se ejecutaría 100 veces e ir acumulando los valores.

Un Saludo.