Помогите исправить код

[Tanuska___:)]

var
    i:integer;
 Begin
  DM.resultat.Active:=True;
   DM.resultat.First;
while not DM.resultat.Eof do
   begin
 if dm.resultat.Locate('ID_C',DM.klient.FieldByName('ID_C').AsInteger,[]) then
    begin
dm.resultat.Edit;
dm.resultat.FieldByName('ФИО').AsString:=DM.klient.Fields.Fields[1].AsString;
dm.resultat.Post;
   end;
DM.resultat.Next;
    end;
 end;

этот код для того чтобы при изменении в одной таблицы (klient) автоматически обнавлялись такие же записи в другой (resultat)
но у меня этот код останавливается в режиме редактора klient и висит .... в общем в чем может быть ошибка?

[Stilet]

Потому как все портит Locate.
Перед ним нужно запоминать позицию,и после него перескакивать на нее, в этом тебе помогут BookMarks

var SavePlace: TBookmark;
...
while not DM.resultat.Eof do   
   begin   
SavePlace := GetBookmark;

 if dm.resultat.Locate('ID_C',DM.klient.FieldByName('ID_C').AsInteger,[]) then   
    begin   
    dm.resultat.Edit;   
    dm.resultat.FieldByName('ФИО').AsString:=DM.klient.Fields.Fields[1].AsString;   
    dm.resultat.Post;  
    GotoBookmark(SavePlace);
   end;   
DM.resultat.Next;   
    end;

Или альтернатива получше SQL-UPDATE.

[Tanuska___:)]

А библиотеку подключать к TBookmark не нужно никакую?

[Stilet]

Вроде нет. все в DB должно быть.

[Tanuska___:)]

используя TBookmark

 var
   i:integer;
    SavePlace: TBookmark;
       begin
       DM.resultat.Active:=true;
       dm.resultat.First;
   while not DM.resultat.Eof do
    begin
  SavePlace := dm.resultat.GetBookmark;
     if dm.resultat.Locate('ID_C',DM.klient.FieldByName('ID_C').AsInteger,[]) then
       begin
      dm.resultat.Edit;
      dm.resultat.FieldByName('ФИО').AsString:=DM.klient.Fields.Fields[1].AsString;
       dm.resultat.Post;
     dm.resultat.GotoBookmark(SavePlace);
    end;
   
  DM.resultat.Next;
       end;
     end;

у меня ничего не изменилось ....
а если использовать sql-update :
он должен выглядеть как то так?

DM.SQLresultat.SQL.Text:= 'update люди set ФИО='''+DM.klient.Fields.Fields[1].AsString+''' where ID_C ='+IntToStr(DM.klient.FieldByName('ID_C').AsInteger);