|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
BDE+ интерфейс. sql, код внутри
пытаюсь скопировать из 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 Код: Код:
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; спасайте, завтра сдавать. поможет кто доделать( таких же буквально пару моментов решить) ? я сделал всё уже, но видимо что то упустил... хотя мне кажется ошибка здесь - id- ключевое поле, с выделенные поля справа - поля таблицы Plan - всё по науке... и ошибка всё равно( (изменилось после того как убрал справа выделение на Name1) id- автоинкремент, писали что он мог "сломаться", и типо нужно пересоздать таблицу. мб такое? Последний раз редактировалось M.A.D.M.A.N., 22.01.2014 в 10:16. |