[Maks19]

Код:

if  not (ComboBox1.Text='') then
  begin
  if not Table1.Locate('Projname',ComboBox1.Text,[]) then
  begin
   Table2.Insert;
  Table3.Insert;
  end
  else
 begin
    Table2.Edit;
if Edit1.Text<>'' then Table2.FieldByName('Dmin').AsString:=Edit1.Text;
       .....................
 Table2.Post;
   Table3.Edit;
      for i:=0 to n do
  begin
     Table3.Insert;
  Table3.FieldByName('Cy1').AsString:=floattostr(Cy1[i]);
       ................................
       Table3.Post;
        end;
end;

При повторном редактировании вместо того чтобы заменить (когда это необходимо) строки в таблице 3 добавляет к существующим 6 новых. Что тут не так? Во второй таблице заменяет, а в третьей добавляет.