powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск подходящих значений
16 сообщений из 16, страница 1 из 1
Поиск подходящих значений
    #32157589
Oleg_User
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Помогите пожалуйсто!
У меня есть столбец с числовыми значениеми, мне нужно отсортировать все значение, которые удовлетворяют условию (разница любых значений из таблицы не должно превышать заданного "Х" ) стороки со значением выполняющие данное условие разместить в таблицы.
Наглядно это должно быть так:
12
11
14
17
18
При условии что "Х"=1 Необходимо создать три таблицы.
12
11

14

17
18
Извеняйте за карявость.
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32157623
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А если будет
12
11
13
14
17
18
И X=1?

Получается так:
12
11

12
13

13
14

17
18
?
условия, заданные вами не совсем корректны
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32157774
Oleg_User
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все верно, так и должно быть!
Но мне достаточно, если мне кто поможет написать запрос исходя из моего условия.
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32157780
Oleg_User
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все верно! Но мне будет достаточно если кто сможет помочь составить запрос исходя из моих условий!
Спосибо!
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32157791
V. Motchulsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все верно, так и должно быть!
По-моему НЕТ!
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32157857
Oleg_User
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Serge Gavrilov.
Я не понимаю почему вы говорите что "условия, заданные вами не совсем корректны". Условие таки и верное, самое противное, что досих пор это делается в ручную и потому этот вопрос не возникает.
Так что, при таких условиях, нельзя создать эти самые таблицы?
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32157860
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Поскольку таблиц должно создаться несколько, то ясно, что надо писать программу.
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32158006
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поскольку на одних и тех же данных можно получить разные результаты, удовлетворяющие поставленной задаче - непонятно что и как эта программа должна делать
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32158011
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
В первом приближении, пусть делает согласно интерпретации своего создателя.
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32158013
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Например, так:

Код: plaintext
1.
2.
For i = DMin(...) To DMax(...)
    CurrentDB.Execute  "CREATE ... WHERE ... BETWEEN "  & CStr(i - x) &  " AND "  & CStr(i + x)
Next


Все поправки уже будут касаться логики программы, а не способа исполнения.
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32158014
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так логика неоднозначные результаты дает
Для исходного множества чисел от 1 до N
Если X=1 то можно разбить на N наборов по одному элементу. Или на N/2 наборов по 2.
Если Х=2 то можно разбить на N наборов по 1 эл. Или на N/2 по два. Или N/3 по 3.
и т.д.
Если допускается многократное вхождение одного элемента в разные наборы - там совсем все плохо.
Не поверю, что задача стоит так: "Надо что-то как-то разместить пох.й как но чтоб вот так".
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32158017
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Лох, я предлагаю разделить задачу. О логике пусть болит голова у задавшего вопрос. А мы отвечаем только по технике.
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32158334
Oleg_User
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Но все ж, помогите... Люди, добрые!!!!!!!
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32158356
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Помочь с логикой или с техникой?
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32159533
Oleg_User
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Поиск подходящих значений
    #32159727
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Допустим, программно:

Этапы:
1. упорядочиваем записи таблицы (Values) по значению в опорном поле (Val). Например берем
Код: plaintext
sSql=” Select Disinct Val from Values Order by Val”
и запихиваем его в QueryDef (Set ValsByVal =CurrentDb.CreateQueryDef(sName, sSQL). (не обязательно программно)
2. Понятно, что каждый (идем от меньших) элемент может быть нижней границей очередного вашего множества. Т.е. надо пройтись по некому циклу (открыв рекордсет rst по данным описанного запроса). Например так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Do While Not rst.eof
	CurMin= rst( 0 )
	NextMax= DMax(“val”, sName, “val <” & CStr(rst( 0 ) + x))
	If NextMax> CurMax then
		I=I+ 1 
		ReDim Preserve aMin(I)
		aMin(I)= CurMin
		CurMax= NextMax
		'Тут можно выполнить запрос
                'на создание таблы с текущим диапазоном,
                'или, что лучше, записать текущее значение
                'val  в табличку значений «нижних» границ
	End if
    	Rst.MoveNext
loop
3. Таким образом вы определите все «нижние границы» Ваших множеств и их количество. Создавать ли для них отдельные таблицы (текст запроса – наподобие приведенного выше в посте В.С.), или получать наборы данных запросом на выборку – дело Ваше.
...
Рейтинг: 0 / 0
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск подходящих значений
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]