Код:
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 новых. Что тут не так? Во второй таблице заменяет, а в третьей добавляет.