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.

[Onti]

basado en el codigo de Marcos, prodria utilizar una funcion

Código Delphi [-]
var
  nParcial: Double;
  Function Suma(NomTabla:String)ouble;
  Var
     LRes ouble;
  Begin
    // Incializar
      LRes :=0;
   
    // Consulta
      Query1.Close;
      Query1.Sql.Clear
      Query1.Sql.Add('Select Sum(Importe) From '+NomTabla);
      Query1.Open;
      LRes :=Query1.Fields[0].AsFloat;
      Query1.Close;

    // Resultado
       Suma:=LRes;
  End;
begin

  nParcial:=0;
  nParcial:=nParcial +Suma('tabla1'); 
  nParcial:=nParcial +Suma('tabla2'); 
  .
  .

// Si asumimos que el nombre de las tablas solo diere por un nro podríamos hacer algo así:

  For La :=1 to 100
    nParcial:=nParcial +Suma('tabla'+IntToStr(La));


end;