[Yurk@]

по идее так можно попробовать (Firebird):

Код:

SELECT FIRST 1 number
FROM orders
WHERE number < :number
ORDER BY number DESC

поскольку СУБД не указана - подгонять под себя нужными операторами

[poli-smen]

Сообщение от Страдалецъ

Код:

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;

[YuliyaKar]

Да, именно! Близкое, но не превышает значение Edit!!! ТО что раньше было не работает,он выводит все равно только первое попавшееся.
Сейчас этот вариант попробую!

[YuliyaKar]

Пишет Invalid use of keyword!

[poli-smen]

Сообщение от YuliyaKar

Пишет Invalid use of keyword!

Похоже что используется BDE. Тогда попробуй убрать в запросе "TOP 1".
Кстати, а поле "Dispt" какого типа? Строкового или числового?

[YuliyaKar]

Строкового!
Но еще!
Само edit8 считается так

Код:

Edit6.Text:=(floattostr(strtofloat(Character.Edit2.Text)+strtofloat(Edit5.Text))); //початкова водотоннажнысть судна

ТО есть здесь я к начальному водоизмещению прибавляю постепенно вес заргуженных контенйеров с Edit5.Text.
И когда он выбивает эту ошибку, то высвечивает это поле!

[poli-smen]

Сообщение от YuliyaKar

Строкового!

Если число хранится в таблице в виде строки, то тут возникают проблемы сортировки и сравнений - числа и строки сортируются немного по-разному.

[YuliyaKar]

Смотрите, убрала "TOP 1", но теперь выбивает ошибку, что не найдено поле "query3KodD", этоу меня поле счетчик. Посмотрела, запрос авктивный, поле на месте. А что такое непонятно
НАписала вот так

Код:

Query3.Close;
Query3.SQL.Text:='SELECT 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;

[poli-smen]

Сообщение от YuliyaKar

Смотрите, убрала "TOP 1", но теперь выбивает ошибку, что не найдено поле "query3KodD", этоу меня поле счетчик. Посмотрела, запрос авктивный, поле на месте. А что такое непонятно
НАписала вот так

Код:

Query3.Close;
Query3.SQL.Text:='SELECT 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;

В каком месте выбивает? Я не вижу чтобы в приведённом куске кода использовалось поле query3KodD.

В крайнем случае можно добавить в выборку и это поле:

Код:

Query3.SQL.Text:='SELECT Dispt, query3KodD FROM Stab.DB WHERE Dispt  < ''' + Edit6.Text + ''' ORDER BY Dispt DESC';

[YuliyaKar]

Так и я о том же. Поле это нигде не фигурирует, но проект сразу выбивает.
Попробовла так! И все заработало!!!!!!!!!!
Просто все поля выбрала, потому что , когда я добавила "KodD", он тогла начал показывать, что другие не может найти

Код:

Query3.Close;
Query3.SQL.Text:='SELECT * 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('DRAFT').AsString;

Это просто счастье!!! Спасибо вам, Проверила, выбирает наиболее близкое или равное!!!

[poli-smen]

Сообщение от YuliyaKar

Так и я о том же. Поле это нигде не фигурирует, но проект сразу выбивает.
Попробовла так! И все заработало!!!!!!!!!!
Просто все поля выбрала, потому что , когда я добавила "KodD", он тогла начал показывать, что другие не может найти

Скорее всего у Query3 созданы поля в режиме редактирования. Т.е. если кликнуть двойным щелчком по Query3 - откроется окошко и оно будет не пустое - в нём будут автосоздаваемые поля - если их удалить из этого списка, то они больше не будут требоваться для запроса.

[YuliyaKar]

Ааа, теперь ясно!!! Я же их в самом начале добавила. Ну та ладно, все равно работает ))) спасибо!!!