Цитата:
|
Сообщение от Страдалецъ
Код:
query3.SQl.Text:='select *FROM Stab.DB where Dispt <= ''' + Edit6.Text + ''' ORDER BY Dispt DESC';
Или я че-то не понимаю или лыжи не едут. Это как же вы таким запросом получите граничные значения? Вы получите так все что меньше или равно критерию. Зачем вы еще и равно делаете, мне неясно. |
По поводу равно я согласен, но ни о каких граничных значениях в усливии задания речи не идёт. Там нужно выбрать значение которое (как я понял) наиболее близкое (но не превышающее) тому что введено в Edit.
Вот так должно работать:
Код:
Query3.Close;
Query3.SQL.Text:='SELECT TOP 1 Dispt FROM Stab.DB WHERE Dispt < ''' + Edit6.Text + ''' ORDER BY Dispt DESC';
Query3.Open;
if Query3.IsEmpty then
raise Exception.Create('Ничего не найдено')
else
Edit8.Text := Query3.FieldByName('Dispt').AsString;