[Serval]

проблемку решил - подсказали как исползовать букмарки и локейты.
кому интересено вот код предоставленный soleil@mmc

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

var   MyBookMark: TBookmark; begin    MyBookMark:= Form2.Query3.GetBookmark;    ....     Query1.Active := false;   Query1.SQL.clear;   Query1.SQL.add('update place set ....');   Query1.ExecSQL;    ....      Form2.Query3.DisableControls;    Form2.Query3.Active:=false;    Form2.Query3.Active:=true;    Form2.Query3.GotoBookmark(MyBookMark);    Form2.Query3.EnableControls;    Form2.Query3.FreeBookMark(MyBookMark); end;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

var     l_pk_value: integer;   begin    l_pk_value::= Form2.Query3.FieldByName('your_pk_field_name').AsInteger;    ....     Query1.Active := false;   Query1.SQL.clear;   Query1.SQL.add('update place set ....');   Query1.ExecSQL;    ....      Form2.Query3.DisableControls;    Form2.Query3.Active:=false;    Form2.Query3.Active:=true;    Form2.Query3.Locate('your_pk_field_name', l_pk_value, []);    Form2.Query3.EnableControls; end;

поначалу просто непонял что искать...