передача данных

[bbk_serg]

Как передать данные из Form1.DBGrid1 в Form2.DBGrid1.

Спасибо!!

[Stilet]

Никак.
Передавай из базы в базу.
Обьясни подробнее что нужно.

[bbk_serg]

Есть две таблицы, все поля одинаковые, мне нужно чтобы когда виделил строку и нажал на кнопку "Переместить" эта строка скопировалась в другую таблицу.

[Gorychev]

procedure TForm1.add_to_notebook;
var i: integer;
begin
  ADOTable2.Last;
  ADOTable2.Insert;
  ADOTable2.Edit;
 
   for i:=0 to ADOTable1.FieldCount - 1  do
      ADOTable2.Fields[i].AsString := ADOTable1.Fields[i].AsString;

  ADOTable2.Post;
end;

ADOTable1 - исходная таблица
ADOTable2 - куда копируем данные

Здесь частный случай, когда все поля имеют тип String, если у вас это не так, то вместо цикла можно каждому полю присвоить свое значение, например

  ADOTable2.Fields[0].AsBoolean := ADOTable1.Fields[0].AsBoolean;
  ADOTable2.Fields[1].AsDateTime := ADOTable1.Fields[1].AsDateTime;
  ADOTable2.Fields[2].AsInteger := ADOTable1.Fields[2].AsInteger;
..........

Можно, чтобы не на кнопку нажимали "Переместить", а привязать PopupMenu к DBGrid и при нажатии левой кнопки на DBGrid, юзер сможет выбрать нужное действие.

[bbk_serg]

Все работает, но есть одно но, при копировании постоянно заменяет одну и туже запись. Как это исправить???

СПАСИБО!!!

[ArtInt]

Наверное потому что используете AdoTable2.Edit - что означает редактирование текущей записи. А если вставить новую запись то AdoTable2.Insert;

[bbk_serg]

Все работает!


ВСЕМ ОГРОМНОЕ СПАСИБО!!!!!!!!!!!!!!!!!!!!!