Hola pmtzg.
No sé si entiendo bién tu problema... Por lo que entendí de tu mensaje y usando un
TIBDataSet con su generador, basta con que hagas la copia de forma consecutiva:
Código Delphi
[-]
...
while not ViejaTablaParadox.Eof do
begin
IBDataSet1.Append;
For i := 1 to ViejaTablaParadox.Fields.Count -1 do IBDataSet1.Fields[i].Value:= ViejaTablaParadox.Fields[i].Value;
IBDataSet1.Post;
ViejaTablaParadox.Next;
end;
while not NuevaTablaParadox.Eof do
begin
IBDataSet1.Append;
For i := 1 to NuevaTablaParadox.Fields.Count -1 do
IBDataSet1.Fields[i].Value:= NuevaTablaParadox.Fields[i].Value;
IBDataSet1.Post;
NuevaTablaParadox.Next;
end;
...
Pero me quedan dudas sobre el papel que juega el campo 'numreg'. Lo supuse como ID, pero no sé si es un código o corresponde al número de algún formulario...
Saludos.