Выбор значений из таблицы / FoxPro, Visual FoxPro

ReSQL.ru

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

Гость

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

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

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

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

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

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

Выбор значений из таблицы

#37281567

Chek_Fedor

Участник

Сообщения: 2 019

Рейтинг: 0 / 0

Что-то я в ступоре. Нужно выбрать значения из таблице типа:

Код: plaintext

1.
2.
3.

PR  FORMA  FAK  SPEC  IALIZ   KURS   KOL_ST  POLN  CHAST  KOL_GR   KOL_PGR   
         1         200     233       4          2             4 
         3         200     233       5          3             5

В общем пытался что-то изобразить не получилось подскажите как насамом деле работает код

Код: plaintext

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

			USE &nfile_k1
			INDEX ON STR(FORMA, 1 )+STR(fak, 4 )+STR(spec, 4 )+STR(ializ, 2 )+STR(kurs, 1 ) TAG ik2 OF ikstud
			kl8=STR(fo0_, 1 )+STR(fak0_, 4 )+STR(spec0_, 4 )+STR(kurs_, 1 )+STR(iial_, 2 )
			SEEK kl8
			IF FOUND()

				kolst_= 1 
				oplp_=poln      && кол-во с полной оплатой
				oplx_=chast      && кол-во с частичной оплатой
				kolgr_=kol_gr    && кол-во групп
				kolpgr_=kol_pgr  && кол-во подгрупп
		ELSE
				kolst_= 2 
				oplp_=poln      && кол-во с полной оплатой
				oplx_=chast      && кол-во с частичной оплатой
				kolgr_=kol_gr    && кол-во групп
				kolpgr_=kol_pgr  && кол-во подгрупп

			ENDIF

Сейчас он находит запись с FORMA=1 и вставляет данные из таблицы с FORMA=3

...

Рейтинг:

0 / 0

26.05.2011, 22:49

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

Выбор значений из таблицы

#37281584

Chek_Fedor

Участник

Сообщения: 2 019

Рейтинг: 0 / 0

т.е. мне будет достаточно Вашего пояснения к

Код: plaintext

1.
2.
3.
4.

INDEX ON STR(FORMA, 1 )+STR(fak, 4 )+STR(spec, 4 )+STR(ializ, 2 )+STR(kurs, 1 ) TAG ik2 OF ikstud
			kl8=STR(fo0_, 1 )+STR(fak0_, 4 )+STR(spec0_, 4 )+STR(kurs_, 1 )+STR(iial_, 2 )
			SEEK kl8
			IF FOUND()

...

Рейтинг:

0 / 0

26.05.2011, 23:00

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

Выбор значений из таблицы

#37281669

Chek_Fedor

Участник

Сообщения: 2 019

Рейтинг: 0 / 0

Тему можно удалить разобрался.

...

Рейтинг:

0 / 0

27.05.2011, 01:41

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

Выбор значений из таблицы

#37281677

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Обратите внимание:
INDEX ON STR(FORMA,1)+STR(fak,4)+STR(spec,4)+STR(ializ,2)+STR(kurs,1) TAG ik2 OF ikstud
kl8=STR(fo0_,1)+STR(fak0_,4)+STR(spec0_,4)+STR(kurs_,1)+STR(iial_,2)

Кроме того, ваша задача решается несколько проще:

Код: plaintext

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

* Этот код должен исполняться один раз
USE (nfile_k1)
INDEX ON STR(FORMA, 1 )+STR(fak, 4 )+STR(spec, 4 )+STR(ializ, 2 )+STR(kurs, 1 ) TAG ik2 OF ikstud
...
* Этот код делает то, что вам нужно:
select (nfile_k1)
SEEK STR(fo0_, 1 )+STR(fak0_, 4 )+STR(spec0_, 4 )+STR(iial_, 2 )+STR(kurs_, 1 ) tag ik2 of ikstud
kolst_=iif(FOUND(), 1 , 2 )
oplp_=poln      && кол-во с полной оплатой
oplx_=chast      && кол-во с частичной оплатой
kolgr_=kol_gr    && кол-во групп
kolpgr_=kol_pgr  && кол-во подгрупп

А если поинтереснее, то можно так:

Код: plaintext

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

* Никаких индексов!
select poln as oplp_, chast as oplx_, kol_gr as kolgr_, kol_pgr as kolpgr_;
 from (nfile_k1);
 where FORMA=fo0_ .and. FAK=fak0_ .and. SPEC=spec0_ .and. IALIZ=iial_ .and. KURS=kurs_;
 into cursor tmp
kolst_=iif(_tally> 0 , 1 , 2 )
scatter memvar
use

...

Рейтинг:

0 / 0

27.05.2011, 02:08

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/moderation_log.php?user_name=CelwinS]:	0ms
get settings:	7ms
get forum list:	9ms
get settings:	8ms
get forum list:	12ms
get settings:	8ms
get forum list:	10ms
get settings:	8ms
get forum list:	12ms
get settings:	8ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	23ms
get topic data:	10ms
get forum data:	3ms
get page messages:	42ms
get tp. blocked users:	1ms
others:	1742ms

total:	1920ms