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 :

Código Delphi [-]
 
 
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

Código Delphi [-]
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