Как найти следующую и предыдущую запись удовлетворяющую условию поиска / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как найти следующую и предыдущую запись удовлетворяющую условию поиска

7 сообщений из 7, страница 1 из 1

Как найти следующую и предыдущую запись удовлетворяющую условию поиска

#34588770

_mirror

Гость

Как найти следующую и предыдущую запись удовлетворяющую условию поиска

поиск первой

LOCATE FOR customer.firma=ALLTRIM(thisform.text20.Value)
IF FOUND() then
thisform.text1.Value=customer.fio
endif

что надо написать в обработчике кнопки следующая запись(удовл условию)

...

Рейтинг:

0 / 0

11.06.2007, 19:48

| Ответить | Цитировать | Написать

Как найти следующую и предыдущую запись удовлетворяющую условию поиска

#34588784

Sergey Sizov

Участник

Сообщения: 1 524

Рейтинг: 0 / 0

Код: plaintext

CONTINUE

...

Рейтинг:

0 / 0

11.06.2007, 20:12

| Ответить | Цитировать | Написать

Как найти следующую и предыдущую запись удовлетворяющую условию поиска

#34588786

_mirror

Гость

Sergey Sizov

Код: plaintext

CONTINUE

где в какой строчке

...

Рейтинг:

0 / 0

11.06.2007, 20:14

| Ответить | Цитировать | Написать

Как найти следующую и предыдущую запись удовлетворяющую условию поиска

#34588788

_mirror

Гость

а предыдущую?

...

Рейтинг:

0 / 0

11.06.2007, 20:18

| Ответить | Цитировать | Написать

Как найти следующую и предыдущую запись удовлетворяющую условию поиска

#34588839

Burn

Участник

Откуда: Днепропетровск, Украина

Сообщения: 1 194

Рейтинг: 0 / 0

>а предыдущую?
LOCATE или SEEK ставит на первую(или последную если включен индекс с обратной сортировкий) запись удовлетворяющую условию.
Но если очень хочется:

DO WHILE customer.firma=ALLTRIM(thisform.text20.Value)
SKIP -1
ENDDO

...

Рейтинг:

0 / 0

11.06.2007, 21:49

| Ответить | Цитировать | Написать

Как найти следующую и предыдущую запись удовлетворяющую условию поиска

#34588905

Sergey Sizov

Участник

Сообщения: 1 524

Рейтинг: 0 / 0

авторчто надо написать в обработчике кнопки следующая запись(удовл условию)
Я отвечал на этот вопрос.
Насчет предыдущей записи: ее не надо искать ибо она уже найдена при предыдущих поисках.

Хотя мне не нравится сам подход. Зачем искать по одной, когда можно командой

Код: plaintext

select * from customer where customer.firma=ALLTRIM(thisform.text20.Value)

отобрать сразу все нужные записи и ходить по ним в любую сторону хоть до посинения.

...

Рейтинг:

0 / 0

11.06.2007, 22:47

| Ответить | Цитировать | Написать

Как найти следующую и предыдущую запись удовлетворяющую условию поиска

#34589731

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Если тебе надо гулять взад-вперед по отфильтрованной таблице:
поставь фильтр

Код: plaintext

set filter to customer.firma=ALLTRIM(thisform.text20.Value)

Вперед

Код: plaintext

1.
2.

if !eof()
skip
endif

Код: plaintext

1.
2.

if !bof()
skip - 1 
endif

на первую запись

Код: plaintext

go top

на последнюю

Код: plaintext

go bottom

...

Рейтинг:

0 / 0

12.06.2007, 15:59

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=34588786&tid=1589164]:	0ms
get settings:	9ms
get forum list:	18ms
check forum access:	3ms
check topic access:	3ms
track hit:	142ms
get topic data:	10ms
get forum data:	2ms
get page messages:	47ms
get tp. blocked users:	1ms
others:	208ms

total:	443ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы