Цитата:
Сообщение от Guaho
А not зачем? С ним как раз будет "если запись не найдена". И AsString не нужно, AsInteger правильнее, т.к. код записи имеет тип Integer.
|
Я подразумевал, что если запись не найдена то добавить если найдена, то редактировать.
Код:
if not Table2.Locate('Isid',Table1.FieldByName('Projid').AsInteger,[]) then
begin
Table2.Insert;
Table3.Insert;
end
else
begin
Table2.Edit;
Table3.Edit;
end;
if Edit1.Text<>'' then Table2.FieldByName('Dmin').AsString:=Edit1.Text;
.....
Table2.Post;
for i:=0 to n do
begin
Table3.FieldByName('Cy1').AsString:=floattostr(Cy1[i]);
....
end;
Table3.Post;
Но в табл 3 записывается только последний элемент массива. Не подскажите почему не весь массив ?