запись в таблицу

[andrenisimus]

Есть

 Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox1.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit5.Text;
       Form4.ADOTable1.FieldByName('срок храниения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температрура C').AsString:=Form5.Edit6.Text;
       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox2.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit7.Text;
       Form4.ADOTable1.FieldByName('срок храниения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температрура C').AsString:=Form5.Edit6.Text;
       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox3.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit8.Text;
       Form4.ADOTable1.FieldByName('срок храниения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температрура C').AsString:=Form5.Edit6.Text;
        Form4.ADOTable1.Insert;
        Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox4.text;
        Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit9.Text;
        Form4.ADOTable1.FieldByName('срок храниения').AsString:=Form5.Edit4.Text;
        Form4.ADOTable1.FieldByName('температрура C').AsString:=Form5.Edit6.Text;
        Form4.ADOTable1.Post;

нужно так при нажатии на кнопку если я выбрал одну строку, нажал записалось, если я ввел 2 строки, записалось 2, а то у меня ввожу первую строку, а остальные заполняются пустыми

from artemavd: что, русский язык в школе прогуливал чтоли? Или не научили правильно формулировать вопросы? Еще раз увижу тему с неправильно сформулированным и непонятным вопросом, а также с кучей ошибок - как минимум сразу закрою и отправлю читать литературу по БД, а как максимум удалю тему и выпишу штраф за нарушение нескольких правил форума!

[_SERGEYX_]

После каждого Insert; нужно делать Post;

 
Form4.ADOTable1.Insert;
Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox1.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit5.Text;
       Form4.ADOTable1.FieldByName('срок храниения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температрура C').AsString:=Form5.Edit6.Text;
Form4.ADOTable1.Post;
       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox2.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit7.Text;
       Form4.ADOTable1.FieldByName('срок храниения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температрура C').AsString:=Form5.Edit6.Text;
Form4.ADOTable1.Post;
       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox3.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit8.Text;
       Form4.ADOTable1.FieldByName('срок храниения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температрура C').AsString:=Form5.Edit6.Text;
Form4.ADOTable1.Post;
        Form4.ADOTable1.Insert;
        Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox4.text;
        Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit9.Text;
        Form4.ADOTable1.FieldByName('срок храниения').AsString:=Form5.Edit4.Text;
        Form4.ADOTable1.FieldByName('температрура C').AsString:=Form5.Edit6.Text;
Form4.ADOTable1.Post;

Ты всегда пишешь таким ужасным кодом??? (from artemavd: точно также как и формулирует свой "вопрос")

[andrenisimus]

Form4.ADOTable1.Post;

Если ставишь это выбивает ошибку Data set not in edit or inset mode

[Sm1Le]

Сообщение от andrenisimus

Form4.ADOTable1.Post;

Если ставишь это выбивает ошибку Data set not in edit or inset mode

Form4.ADOTable1.Edit;