powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / SKIP в курсоре, последняя строка
8 сообщений из 8, страница 1 из 1
SKIP в курсоре, последняя строка
    #35447591
Imperous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Делаю в курсоре SKIP.
Интересно, если у меня 100 записей, в настоящий момент текущая строка сотая, что надо сделать чтоб он не пытался делать переход на следующую (101) запись которой не существует, а остался на 100?
...
Рейтинг: 0 / 0
SKIP в курсоре, последняя строка
    #35447599
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
SKIP
if EOF()
   * Если достигнут конец файла возвращаемся на последнюю
   SKIP - 1 
endif
Примерно так, только при SKIP -1 может ошибка быть если таблица пустая, для этого надо BOF() проверять.
...
Рейтинг: 0 / 0
SKIP в курсоре, последняя строка
    #35447604
ImperousДелаю в курсоре SKIP.
Интересно, если у меня 100 записей, в настоящий момент текущая строка сотая, что надо сделать чтоб он не пытался делать переход на следующую (101) запись которой не существует, а остался на 100?
Если курсор не индексирован, то обернуть skip в условие:
Код: plaintext
1.
2.
if recno() < reccount()
  skip
endif
В противном случае так:
Код: plaintext
1.
2.
3.
skip
if eof()
  skip - 1  && или, по вкусу, go bottom
endif
...
Рейтинг: 0 / 0
SKIP в курсоре, последняя строка
    #35447846
Imperous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
проходящий. ImperousДелаю в курсоре SKIP.
Интересно, если у меня 100 записей, в настоящий момент текущая строка сотая, что надо сделать чтоб он не пытался делать переход на следующую (101) запись которой не существует, а остался на 100?
Если курсор не индексирован, то обернуть skip в условие:
Код: plaintext
1.
2.
if recno() < reccount()
  skip
endif
В противном случае так:
Код: plaintext
1.
2.
3.
skip
if eof()
  skip - 1  && или, по вкусу, go bottom
endif


курсор не индексирован!
Код: plaintext
1.
2.
if recno() < reccount()
  skip
endif

остается на той же строке

Код: plaintext
1.
2.
3.
skip
if eof()
  skip - 1  && или, по вкусу, go bottom
endif
уходит в неизвестность ))
...
Рейтинг: 0 / 0
SKIP в курсоре, последняя строка
    #35447865
Imperousкурсор не индексирован!
Код: plaintext
1.
2.
if recno() < reccount()
  skip
endif

остается на той же строке

Всегда?
...
Рейтинг: 0 / 0
SKIP в курсоре, последняя строка
    #35447869
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Imperous
курсор не индексирован!
Код: plaintext
1.
2.
if recno() < reccount()
  skip
endif

остается на той же строке

Код: plaintext
1.
2.
3.
skip
if eof()
  skip - 1  && или, по вкусу, go bottom
endif
уходит в неизвестность ))

А в том ли курсоре ты перемещаешься?

добавь в начало
Код: plaintext
sele MyCursor

А лучше привыкай явно везде алиас писать:
Код: plaintext
1.
2.
if recno('MyCursor') < reccount('MyCursor')
  skip in MyCursor
endif
...
Рейтинг: 0 / 0
SKIP в курсоре, последняя строка
    #35447938
Imperous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dima T
добавь в начало
Код: plaintext
sele MyCursor

А лучше привыкай явно везде алиас писать:
Код: plaintext
1.
2.
if recno('MyCursor') < reccount('MyCursor')
  skip in MyCursor
endif

вот так сработало, пасиба :)
...
Рейтинг: 0 / 0
SKIP в курсоре, последняя строка
    #35447942
Imperous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
проходящий. Imperousкурсор не индексирован!
Код: plaintext
1.
2.
if recno() < reccount()
  skip
endif

остается на той же строке

Всегда?
ага
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / SKIP в курсоре, последняя строка
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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