Показать сообщение отдельно
  #1  
Старый 02.11.2022, 13:20
MMMMQ MMMMQ вне форума
Прохожий
 
Регистрация: 02.11.2022
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Как перенести данные строки из одной таблицы в другую (или копировать)

Как перенести данные строки из одной таблицы в другую(или копировать)
Нашел этот код в интернете, не помогает

Код:
procedure TForm1.btn1Click(Sender: TObject);
var I:integer;
begin
DataModule3.ADOTable1.Append;
For I := 0 To DataModule3.ADOTable1.Fields.Count-1 Do
if DataModule3.ADOTable1.Fields[i].FieldName <> 'Код' Then
DataModule3.ADOTable1.Fields[i].Value := DataModule3.ADOTable1.Fields[i].Value;
DataModule3.ADOTable1.Post;
Админ: Пользуемся тегами при оформлении кода!

(P.s я чайник)
Изображения
Тип файла: png помощь.png (29.9 Кбайт, 3 просмотров)
Ответить с цитированием