запрос-корпуса / FoxPro, Visual FoxPro

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

запрос-корпуса

#35825267

student09

Гость

Доброго времени суток!
есть такие данные:

Код: 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.

Street            House    Build	flat
московская	230		143
Московская	230	3	1
московская	230		1
московская	230		1
московская	230		1
московская	230		1
Московская	230	3	2
Московская	230		2
Московская	230		2
Московская	230	4	3
Московская	230		3
Московская	230		3
Московская	230		3
Московская	234	А1	3
Московская	234		3
Московская	234		3
Московская	234		3
Московская	234		3
Московская	234		3
Московская	234		3
Московская	234	А1	3
Московская	234	А2	3
Московская	234		3
Московская	234		3
Московская	234		3
Московская	234		3
Московская	234		3
московская	234	А2	3

и есть пустые корпуса. ^ЕСЛИ копус пустой, а перед ним кпус НЕ пусто и одинаковый адрес(улица, дом, квартира) то корпус равен предыдущему корпусу...такая вот фигня...
пробовал так:

Код: plaintext

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

Go top
Scan
If not empty(build)
Cbuild=build
Chouse=house
С flat=flat
Cstreet=street
Go (recno()+ 1 )
If alltrim(house)==alltrim(chouse) and alltrim(flat)==alltrim(cflat) and len(alltrim(build))= 0  and alltrim(street)==alltrim(cstreet)
Replace build with alltrim(cbuild)
Endif
endif
endscan

но каждый раз Go (recno()+1) нужно повышать
помогите пожалуйста сделать правильно.

...

Рейтинг:

0 / 0

18.02.2009, 16:49

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

запрос-корпуса

#35825434

Galyamov Rinat

Участник

Сообщения: 665

Рейтинг: 0 / 0

Да, уж.

вместо Go (recno()+1) логичнее использовать skip, а так как идет тупой скан, то после всех проверок (перед строкой endscan) надо сделать skip-1

При этом надо самостоятельно проверять, что после skip мы не ушли за последнюю запись

Вот так мне кажется более логично. Здесь нет прыжков вперед-назад по таблице. Оно понятнее и быстрее отработает:

Код: plaintext

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

CPredbuild=''
Scan all

	Chouse=house
	Ñflat=flat
	Cstreet=street

	IF NOT EMPTY(CPredbuild) AND alltrim(house)==alltrim(chouse) and alltrim(flat)==alltrim(cflat) and EMPTY(build) AND alltrim(street)==alltrim(cstreet)
		Replace build with alltrim(CPredbuild)
	ELSE
		CPredbuild=build
	ENDIF

ENDSCAN

...

Рейтинг:

0 / 0

18.02.2009, 17:34

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

запрос-корпуса

#35825459

reware

Участник

Откуда: Хабаровск

Сообщения: 591

Рейтинг: 0 / 0

Go top
do while !eof()

If not empty(build)
Cbuild=build
Chouse=alltrim(house)
Сflat=alltrim(flat)
Cstreet=alltrim(street)
else
If alltrim(house)==chouse and alltrim(flat)==cflat and alltrim(street)==cstreet
Replace build with alltrim(cbuild)
Endif
endif
skip
enddo

...

Рейтинг:

0 / 0

18.02.2009, 17:39

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

запрос-корпуса

#35826051

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

Можно еще "выпендриться", дважды открыв одну и ту же таблицу в разных рабочих областях

Код: plaintext

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

USE MyTab in  0 
USE MyTab in  0  AGAIN ALIAS MyTabFull

select MyTab
SCAN FOR empty(Build) AND Recno()> 1 
	* Переходим на предшествующую запись в копии таблицы
	GO (Recno("MyTab")- 1 ) IN MyTabFull

	* Если запись в копии таблицы удовлетворяет нужным условиям
	* модифицируем содержимое
	IF 	empty(MyTabFull.Build) = .F. and ;
		alltrim(house) == alltrim(MyTabFull.house) and ;
		alltrim(flat) == alltrim(MyTabFull.flat) and ;
		alltrim(street) == alltrim(MyTabFull.street)

		REPLACE Build WITH MyTabFull.Build
	ENDIF
ENDSCAN

...

Рейтинг:

0 / 0

19.02.2009, 00:47

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

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

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

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

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

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

start [/forum/topic.php?fid=41&gotonew=1&tid=1586752]:	0ms
get settings:	11ms
get forum list:	16ms
check forum access:	3ms
check topic access:	3ms
track hit:	48ms
get topic data:	11ms
get first new msg:	7ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	1ms
others:	13ms

total:	161ms