Две таблицы

[viktooor]

У меня две таблицы(ADO). В одной таблице через Grid при нажатии Delete в навигаторе удаляеися строка. Нужно чтобы эта строка записывалась во вторую таблицу.
Подскажите как это сделать
С уважением Виктор

 

[VahaC]

перед удалением вставляйте данные из одной таблицы в другую при помощи insert into select

вот пример

 

[V88]

Можно и на событие BeforeDelete у ADOTable1 прописать добавление текущей записи в ADOTable2:

procedure TForm1.ADOTable1BeforeDelete(DataSet: TDataSet);
begin
ADOTable2.Append;
for i:=0 to ADOTable1.FieldCount-1 do
ADOTable2.Fields[i].Value:=ADOTable1.Fields[i].Value;//при условии, что ADOTable2 имеет точно такую же структуру, что и ADOTable1 
ADOTable2.Post;
end;

P.S. Я не проверял может сработает. Проверь.

 

[viktooor]

V88
Cпасибо за помощь
Но у меня такая задача.
В одной таблице навигатором выбираю позицию для удаления,
Нужно данную позицию перенести в другую таблицу, а в первой таблице удалить ее.
Весь вопрос в том, как перенести в другую таблицу только выбранную позицию.

 

[VahaC]

Весь вопрос в том, как перенести в другую таблицу только выбранную позицию.

Вы мой пример смотрели??