Использование команды SEEK c использованием цикла SCAN / FoxPro, Visual FoxPro

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

Гость

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

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

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

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

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

Использование команды SEEK c использованием цикла SCAN

#36977607

Nissan548

Гость

Нужно написать программу в которой при навигации по таблице 1 соответствующие данные в таблице 2 будут находится при помощи команды Seek c использованием цикла Scan/ENDSCAN.
Вот подобная программа с использованием команды LOCATE:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

CLEAR 
USE tb1 IN  1 
USE tbl2 IN  2 
DO WHILE .T.
IF EOF ()
EXIT
ENDIF
SELECT tb1 
LOCATE FOR tb1.nom=tbl2.nom
? nom, sm, ln
SELECT tbl2 
?nom,dt,nm
SKIP
ENDDO

Попытался сделать примерно так же с использованием SEEK но не вышло:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

CLEAR 
USE tb1 IN  1 
USE tbl2 IN  2 
scan FOR tb1.nom=tbl2.nom
DO while .T.
IF EOF ()
EXIT
ENDIF
SELECT tb1 
STORE a TO lnVal 
SEEK tb1.nom=tbl2.nom
? nom, sm,ln
SELECT tbl2 
?nom,dt,nm
LOOP
ENDDO 
ENDSCAN

Помогите пожалуйста подкорректировать программу.

...

Рейтинг:

0 / 0

25.11.2010, 17:46

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

Использование команды SEEK c использованием цикла SCAN

#36977640

проходящий.

Гость

Nissan548,
где Вы берете такие идиотские примеры?

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

CLEAR 
USE tb1 IN  1 
USE tbl2 IN  2 
Select tbl
scan
? nom, sm,ln
SELECT tbl2 
SEEK tb1.nom=tbl2.nom
?nom,dt,nm
ENDSCAN

...

Рейтинг:

0 / 0

25.11.2010, 17:56

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

Использование команды SEEK c использованием цикла SCAN

#36978079

AmKad

Участник

Сообщения: 5 151

Рейтинг: 0 / 0

Nissan548,

Может банально SET FILTER TO ?

...

Рейтинг:

0 / 0

26.11.2010, 01:15

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

Использование команды SEEK c использованием цикла SCAN

#36980825

fore5ta

Гость

Nissan548Нужно написать ... skip ... команды LOCATE:
для использования SEEK в отличии от LOCATE необходим индекс по полю поиска, все остальное примерно похоже. Подробнее см. справку по SEEK и LOCATE. Измененный каркас примера примерно такой:

Код: plaintext

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.

close databases

select  0 
use TBL2
index on NOM to NOMTLB2

select  0 
use TBL1

scan
  ? nom, sm, ln
  select TBL2
  seek TBL1.NOM
  if found()
    ? nom, dt, nm
  else
    ? 'не найдено в TBL2 значение '+ str(TBL1.NOM)
  endif
  select TBL1
endscan
use

select TBL2
use
if file('NOMTLB2.IDX')
  erase NOMTLB2.IDX
endif

return

...

Рейтинг:

0 / 0

27.11.2010, 16:14

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

Использование команды SEEK c использованием цикла SCAN

#36981425

Гость

Дорогой Nissan548, чтобы ответить Вам более илименее корректно, необходимо сообщать версию FOX.
Поскольку я пользую FOX 9 SP2, тои буду отвечать применительно к ней.
На самомделе все просто:

Код: plaintext

1.
2.
3.
4.
5.
6.

Select TB1
scan
if indexseek(tb1.nom, .T., "tbl2")
?tbl2.nom
endif
endscan

...

Рейтинг:

0 / 0

28.11.2010, 06:27

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=41&msg=36981425&tid=1584771]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	42ms
get topic data:	11ms
get forum data:	3ms
get page messages:	42ms
get tp. blocked users:	1ms
others:	301ms

total:	431ms