Проблема в копировании данных в индексированной таблице БД

[tantema]

Есть БД, в которой 3 таблицы. В каждой таблице добавляются/удаляютя/редактируются данные. Но как написать процедуру, которая бы позволила копировать одну из строк в этой таблице? Использовала

ADOTable1.AppendRecord([ADOTable1.FieldByName('key1').text,ADOTable1.FieldByName('Порядковый номер партии').text,
ADOTable1.FieldByName('Номер компл маршрута').Text,ADOTable1.FieldByName('Номер цеха/участка').Text]);

Но так как таблица индексированная, при нажатии кнопки появляется сообщение "Field 'key1' cannot be modified"

[_SERGEYX_]

Вместо

ADOTable1.FieldByName('key1').text

напиши nil

[tantema]

не помогло, теперь появляется сообщение ADOTable1: DataSet not in edit or insert mode

[mihali4]

Значения полей - в переменные и уже переменные - в ADOTable1.AppendRecord().
Таблица не может одновременно находиться в режиме вставки и чтения.

З.Ы. А кнопка к этому какое отношение имеет ???

[tantema]

Как же тогда при нажатии кнопки сделать так, чтобы в базе данных и соответственно в TDBGrid появлялась строка с копируемыми данными

[palevg]

Я вижу это так: перед нажатием на кнопку ставишь курсор на нужную строку таблицы (ту строку, которую надо скопировать). Теперь жмём на кнопку.
Событие при нажатии на кнопку следующее:

var mark: Integer;
begin
  mark:=ADOTable1.FieldByName('key1').AsInteger; //запоминаем ключ нужной записи
  ADOQuery1.SQL.Add(format('select * from Table1 where key1=%d',[mark])); //создаём запрос
  ADOQuery1.Open; //активируем запрос
  Table1.Insert; //переводим таблицу в режим создания новой записи
  {копируем данные из ADOQuery1 в Table1}
  ADOQuery1.Close;
  Table1.Post;
end;

[tantema]

я не испольую ADOQuery в программе, у меня есть компоненты ADOConnection, DataSource, ADOTable, DBGrid и собственно DBEdit, с помощью которыхъ я и добавляю данные в таблицу

procedure TForm1.Button4Click(Sender: TObject);
begin
  if (DBEdit1.Text='')or (DBEdit2.Text='')or (DBEdit3.Text='') or (DBEdit1.Text='0')or (DBEdit2.Text='0')or (DBEdit3.Text='0')
    then
      begin
        MessageDlg('Ошибка! Заполните все поля.', mtWarning,[mbYes], 0);
        DBEdit1.SetFocus;
      end
    else
      begin
        ADOTable1.Edit;
        ADOTable1.FieldByName('Порядковый номер партии').Text:=DBEdit1.Text;
        ADOTable1.FieldByName('Номер компл маршрута').Text:=DBEdit2.Text;
        ADOTable1.FieldByName('Номер цеха/участка').Text:=DBEdit3.Text;
        ADOTable1.Post;
        MessageDlg('Данные добавлены', mtInformation,[mbYes], 0);
      end;
end;

[_SERGEYX_]

DataSet not in edit or insert mode

Что-то не то ты делаешь...
Проверяю... вот, у меня открытая таблица. В нем 4 поля
id (счетчик), n1, n2, n3 (числа).
Ставлю курсор на нужную строку. Жму на кнопку

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.AppendRecord([nil,ADOTable1n1.Text,ADOTable1n2.Text,ADOTable1n3.Text]);
end;

Всё. Никаких ошибок. Строка скопировалась в конец таблицы.

Для неверующих вот исходник

[tantema]

Да...делала не то. Нашла свою ошибку. единственное не могу понять откуда берется

ADOTable1id: TAutoIncField;
    ADOTable1n1: TIntegerField;
    ADOTable1n2: TIntegerField;
    ADOTable1n3: TIntegerField;

[_SERGEYX_]

не могу понять откуда берется

Правый клик по ADOTable1. В меню > Fields Editor...
Правый клик по редактору. В меню > Add all fields