powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / seek
5 сообщений из 5, страница 1 из 1
seek
    #33909831
Mihran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
privet. mne ydajotsya spomoshju seek naiti tot zapis kotori mne nujen,no pereiti k sledujushei zapisi kotori udavletvarjaet tu je usloviju ne udajotsya. pomogite pojolusta.
...
Рейтинг: 0 / 0
seek
    #33909840
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
skip / scan / locate - в зависимости от условий задачи, данных , индексного выражения
...
Рейтинг: 0 / 0
seek
    #33909844
vkluch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если seek .T. то далее просто проверяйте записи на соответствие вашему условию.
i=0
nnn=yslovie
seek nnn
do while field=nnn and !eof()
i=i+1
skip
enddo
...
Рейтинг: 0 / 0
seek
    #33909987
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вместо цикла DO WHILE + SKIP разумнее пользоваться циклом SCAN

Код: plaintext
1.
2.
3.
4.
5.
6.
SELECT MyTab
SET ORDER TO "нужный индекс"
=SEEK("условие")
SCAN WHILE "выражение нужного индекса" = "условие"
	* Обработка ВСЕХ записей удовлетворяющих "условию"
ENDSCAN

После SEEK() никаких дополнительных проверок или обработок делать не надо, поскольку цикл SCAN WHILE начнет работу от текущей записи. Т.е. от той записи которая была найдена по SEEK()
...
Рейтинг: 0 / 0
seek
    #33910021
vkluch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Согласен.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / seek
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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