Necesito capturar una serie de registros de un ClientDataSet, pero no entiendo bien como funciona internamente. Tengo este codigo:
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
IBTable1.Active:=True;
While not ClientDataSet1.Eof do
begin
IBTable1.Insert;
IBTable1.Fields[0].Value := ClientDataSet1.Fields[0].Value;
IBTable1.Fields[1].Value := ClientDataSet1.Fields[1].Value;
IBTable1.Fields[2].Value := ClientDataSet1.Fields[2].Value;
IBTable1.Fields[3].Value := ClientDataSet1.Fields[3].Value;
IBTable1.Fields[4].Value := ClientDataSet1.Fields[4].Value;
IBTable1.Fields[5].Value := ClientDataSet1.Fields[5].Value;
IBTable1.Fields[6].Value := ClientDataSet1.Fields[6].Value;
IBTable1.Fields[7].Value := ClientDataSet1.Fields[7].Value;
IBTable1.Fields[8].Value := ClientDataSet1.Fields[8].Value;
ClientDataSet1.Next;
end;
IBTable1.Post;
IBTable1.Active:=False;
end;
Pero sólo me inserta el primer registro. ¿Ves algo erroneo en el codigo? ¿Sabrias como podria solucionar mi problema?
Muchas gracias por todo, espero tener suerte,

. Chao.