Código Delphi
[-]
With ClientDataSet1 Do
Begin
ClientDataSet1.Close;
ClientDataSet1.Commantext := ' Select * from Tabla1';
ClientDataSet1.Open
If Not Eof Then
Begin
First;
While Not Eof Do
Begin
ClientDataSet2.Edit; ClientDataSet2.FieldByName('CAMPO1').AsFloat := FieldByName('CAMPO1').AsFloat;
Next;
End;
End;
End;
Cuando entra al bucle por primera vez edita el primer registo, pero el siguiente ya me dispara el mensaje de que no puede modificar..