[aypinki]

пытаюсь скопировать из 1 таблицы значение по щелчку в другую, копирует 1 строку, но почему то вылетает ошибка при попытке добавления следующей строки в заполняемую таблицу.
скрин ошибки приложил.
код Query3 который и собирает предварительно визуально таблицу мою. из таблицы план нужно перекопировать по щелчку код продукта+ руками вписываем количество+ дату.

Код:

1 2 3

Select pl1.Code_of_product,nomenclature.Name1 as name1, pl1.Datemy,pl1.Amount, pl1.id From 'plan' as pl1 Left outer join nomenclature on nomenclature.Code_of_element =pl1.Code_of_product

в параметре AfterPost компонента Tquery пишем следующее -
Код:

Код:

1 2 3 4 5 6 7

procedure TForm1.Query3AfterPost(DataSet: TDataSet); begin  Query3.applyupdates;  Query3.CommitUpdates;  Query3.Close;  Query3.open;  end;

вот код обработчика моего по присвоению

Код:

1 2 3 4 5 6 7 8 9 10

if   ToPlan then begin      IF query3.state<>dsinsert then     query3.edit;     Query3.FieldValues['Code_of_product']:=NomenklTable.FieldValues['Code_of_element'];     Query3.FieldValues['name1']:=NomenklTable.FieldValues['name1'];     ToPlan:=false;     pagecontrol1.ActivePage:=tabsheet3;       end;

проходя пошагово - обнаруживаем что данная ошибка вылетает при переходе со строки Query3.applyupdates; на строку Query3.CommitUpdates;
спасайте, завтра сдавать. поможет кто доделать( таких же буквально пару моментов решить) ? я сделал всё уже, но видимо что то упустил...

хотя мне кажется ошибка здесь -
id- ключевое поле, с выделенные поля справа - поля таблицы Plan - всё по науке...
и ошибка всё равно(
(изменилось после того как убрал справа выделение на Name1)
id- автоинкремент, писали что он мог "сломаться", и типо нужно пересоздать таблицу. мб такое?