Am 15 Mar 2006 um 12:44 hat Woody geschrieben:

> Another approach might be to use the BufferXXXX functionality of IBO to
> position the buffer on the old record and just copy the fields directly from
> the buffer fields to the newly inserted row. Just a thought...
>
> Woody (TMW)

Woody,
that was really simple ...
That's the test procedure I used to duplicate the active query row:
procedure TForm1.Button2Click(Sender: TObject);
VAR I : Byte;
begin
with IB_Query1 do
Begin
BufferRowNum:=RowNum;
append;
for I :=0 to FieldCount-1 do
Fields.Columns[i].Value:=BufferFields.Columns[i].Value;
End;
end;
From there on I can modify the PK and unique-index fields and let the user
start the edit mode.
Thanks for the help here on the list ...

Regards
Gunther




___________________________________________________________
Telefonate ohne weitere Kosten vom PC zum PC: http://messenger.yahoo.de