Тема: ADOTable.seek
Показать сообщение отдельно
  #3  
Старый 10.09.2012, 12:30
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от Red_Garry
Здравствуйте!
Как будет выглядеть код поиска необходимой строки по какому-то критерию и затем установку указателя на предыдущую строку. Т.е. найти строку, в которой <поле1>=критерий и <поле2>=критерий, и установить указатель на предыдущую строку
Код:
begin
  if ADOTable1.Locate('поле1;поле2', VarArrayOf(['критерий1', 'критерий2']), []) then
  begin
    ADOTable1.Prior;
  end else
  begin
    ShowMessage('Не найдено');
  end;
end;
Ответить с цитированием