Traspaso masivo de datos .DBF

[eibarra]

Hola nuevamente a todos del foro
Necesito alguna idea de como pasar los datos completos de dos tablas distintas AAAAA.DBF y BBBBB.DBF a una tabla CCCCC.DBF de forma masiva.
Las estructuras de las tres tablas son las mismas.
Gracias por su colaboracion.

Herwin.

[jachguate]

Podes hacerlo con un ciclo como el siguiente para ambas tablas.

Código Delphi [-]
  TablaOrigen.Open;
  TablaDestino.Open;
  While not TablaOrigen.Eof do
  Begin
    TablaDestino.Insert;
    TablaDestinoCampo1.Value := TablaOrigenCampo1.Value;
    TablaDestinoCampo2.Value := TablaOrigenCampo2.Value;
    TablaDestino.Post;
    TablaOrigen.next;
  end;

Otra opción es utilizar BatchMove.

Hasta luego.