Un detalle

[pmtzg]

hola amigos
estoy pasando informacion de una tabla a otra
pero se me qued en un 3%
la verdad no le encuentro no avanza y solo me copia 1 registro
este es el codigo :


for i := 0 to table1.Fields.Count -1 do
zt2.Fields[i].Value:=table1.Fields[i].Value;
zt2.Post;
i:=table1.Fields.Count+1;
gauge2.Progress:=i;


me pueden hechar una mano!!!! gracias

[roman]

Ahí nada más estás recorriendo los campos del registro activo pero nunca avanzas de registro. Tendría que ser algo como


Table1.First;

while not Table1.Eof do
begin
// Agregas registro en blanco
zt2.Append;

// Copias valores de los campos
for i := 0 to Table1.Fields.Count -1 do
zt2.Fields[i].Value := Table1.Fields[i].Value;

// Guardas el nuevo registro
zt2.Post;

// Avanzas al siguinete registro de la tabla origen
Table1.Next;
end;


// Saludos

[pmtzg]

Ok.
Gracias me quedo Super