Показать сообщение отдельно
  #4  
Старый 19.05.2013, 17:09
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

второй грид цепани к datasourse, который подцеплен к query
и на onClick первого грида прмерно следующее
Код:
dm.Query1.Close;
dm.Query1.SQL.TEXT:='SELECT * FROM table WHERE id = ' +  Dm.DataSource1.DataSet.FieldByName('id').AsInteger;
try 
  dm.query1.Open; 
except 
begin 
  messageDlg('Ошибка SQL!', mtError, [mbOK], 0); 
  Exit; 
end; 
end;
где id - уникальный столбец, например инкремент
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием