пытаюсь скопировать из 1 таблицы значение по щелчку в другую, копирует 1 строку, но почему то вылетает ошибка при попытке добавления следующей строки в заполняемую таблицу.
скрин ошибки приложил.
код Query3 который и собирает предварительно визуально таблицу мою. из таблицы план нужно перекопировать по щелчку код продукта+ руками вписываем количество+ дату.
Код:
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 пишем следующее -
Код:
Код:
procedure TForm1.Query3AfterPost(DataSet: TDataSet);
begin
Query3.applyupdates;
Query3.CommitUpdates;
Query3.Close;
Query3.open;
end;
вот код обработчика моего по присвоению
Код:
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- автоинкремент, писали что он мог "сломаться", и типо нужно пересоздать таблицу. мб такое?