Harald,

just a suggestion, I use "RowData" for this task:

procedure TM_DM_PlannerCfg.DuplicatePlanCol( ID_PlanCol: Integer );
var
sRowData: String;
begin
with Qry_PlanCol do begin
Locate( 'PC_ID_PLANCOL', ID_PlanCol, [] );
sRowData := Fields[0].Row.RowData;
Insert;
Fields[0].Row.RowData := sRowData;
FieldByName( 'PC_ID_PLANCOL' ).AsInteger := GeneratorValue(
'GEN_PC_ID_PLANCOL', 1 );
Post;
end; // with
end;

HTH,
Markus


At 15:13 20.11.00 +0100, you wrote:

>Hi,
>
>I want to append a new record, with the all the values assigned from the
>current record in a grid.
>My code works, but is there a better method to do this ?
>
>
>procedure TfrmDemo.Button1Click(Sender: TObject);
>var i:integer;
>begin
> with IB_Query1 do begin
> i := FieldByName('ID').AsInteger;
> Append;
> KeyFields.ByName('ID').AsInteger := i;
> if LookupKeyForBufferFields then begin
> for i := 0 to FieldCount-1 do Fields[i].Assign(BufferFields[i]);
> post
> end;
> end;
>end;
>
>
>Thanks
>Harald Klomann