Как найти и использовать максимальное значение?

@Windo · Регистрация: 21.07.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Есть следующая задача:
Есть объект, на него нормами заданно количество материала.
Есть цены на этот материал в другой таблице.
Нежно найти максимальную цену из таблицы с ценами и умножить цену на расход.
Почему не находит максимальное значение по такому запросу?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
stoim = 0
'Создаем новый объект для записей
Set RS = New ADODB.Recordset
'Найдем нормы по ид
sql_query = "SELECT Нормы_Расхода.Материал, Нормы_Расхода.Норма_расхода FROM Нормы_Расхода WHERE Нормы_Расхода.Наименование_объекта =" & ZD
'записываем в RS список сумм приглашенных пользователем
RS.Open sql_query, CurrentProject.Connection
'перечисляем все материалы
While Not (RS.EOF)
zena = 0
   Set RS_1 = New ADODB.Recordset
   sql_query = "SELECT max(Материалы_цена.Цена) FROM Материалы_цена WHERE Материалы_цена.Название_материала = " _
   & RS.Fields("Материал") & " AND Материалы_цена.Округ = " & okr _
   & " AND Цена=(select max (Цена) from Материалы_цена)"
'   MsgBox RS.Fields("Материал")
   RS_1.Open sql_query, CurrentProject.Connection
       While Not (RS_1.EOF)
'       MsgBox sql_query
       MsgBox RS_1.Fields("Цена")
       zena = RS_1.Fields("Цена")
       RS_1.MoveNext
       Wend
   RS_1.Close
stoim = stoim + RS.Fields("Норма_расхода") * zena
' MsgBox stoim
RS.MoveNext
Wend
'закрываем соединение
RS.Close

mobile · 05.10.2017, 17:36

Если поле Название_материала текстовое, то параметр должен быть в апострофах. Аналогично и с Округом.

Можно предложить более легкое решение поиска максимума цены, используя предикат Top 1 и обратную сортировку по цене

Visual Basic
1
2
3
4
   sql_query = "SELECT Top 1 Материалы_цена.Цена FROM Материалы_цена " _
   & "WHERE Материалы_цена.Название_материала = '" & RS.Fields("Материал") _
   & "' AND Материалы_цена.Округ = '" & okr _
   & "' Order by Цена Desc"

@Windo · 05.10.2017, 17:37 **[ТС]**

mobile, неопределенная функция Top1 в выражении. Все поля числовые, без MAX и TOP все работает

odbcsql · 05.10.2017, 17:57

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

mobile, неопределенная функция Top1 в выражении.

Где ты нашел Top1? Проблема с CTRL-C/CTRL-V? Написано Top 1. ВнимательнЕе надо. А еще лучше хелп открыть, почитать на ночь. Увлекательное чтение, доложу я вам.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Windo 0 / 0 / 0 Регистрация: 21.07.2015 Сообщений: 10
	05.10.2017, 17:37 [ТС]
	mobile, неопределенная функция Top1 в выражении. Все поля числовые, без MAX и TOP все работает 0