Показать сообщение отдельно
  #8  
Старый 07.04.2015, 09:15
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от Vongud
Так копируется, но из трёх записей почему-то только вторая, независимо от того, где находится курсор в дбгриде...
Да не связан запрос с курсором в дбгриде ну ни как, но если нужна именно такая связка, то можно попробовать добавить запись в таблицу со значениями полей как у текущей от источника, примерно так
Код:
 DM1.ADOQueryTchm.SQL.Add('INSERT INTO Tchmp (TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address)');
 DM1.ADOQueryTchm.SQL.Add('VALUES ('        +
          // Пример для числового поля
           ADOTable.FieldValues['TN']       + ', ''' +
           // а 'кавычки' ('' = ') для текстовых полей
           ADOTable.FieldValues['Name1']    + ''', ''' +
           ADOTable.FieldValues['Name2']    + ''', ''' +
           ADOTable.FieldValues['Name3']    + ''', ''' +
           ADOTable.FieldValues['KolN']     + ''', ''' +
           ADOTable.FieldValues['StazS']    + ''', ''' +
           ADOTable.FieldValues['Klass']    + ''', ''' +
           ADOTable.FieldValues['Uchastok'] + ''', ''' +
           ADOTable.FieldValues['Talon']    + ''', ''' +
           ADOTable.FieldValues['JoinTN']   + ''', ''' +
           ADOTable.FieldValues['Phone']    + ''', ''' +
           ADOTable.FieldValues['Address']  + ''')');
где ADOTable - это поставщик для дибигридовского DataSource

З.Ы. Может есть вариант и попроще, но я такого в справочнике по SQL так и не нашёл
Ответить с цитированием