ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нужна помощь начинающему
9 сообщений из 9, страница 1 из 1
Нужна помощь начинающему
    #34479911
druid84
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
druid84
Гость
Есть таблица с колонками audit (48 аудиторий), nedel (2 недели (первая и втарая)), den (5 дней), para (5 пар).
Нужно создать таблицу для всех аудиторий для всех недель, дней и пар. В ручную набирать многовата.

Можно ли как-то сделать, чтобы таблица создалась автоматически?

Если я правильно понимаю, то нужно что-то типа:
use audit_1
FOR AI = 1 TO 48 [STEP 1]
FOR NI = 1 TO 2 [STEP 1]
FOR DI = 1 TO 5 [STEP 1]
FOR IP = 1 TO 5 [STEP 1]
APPEND BLANK
REPLACE audit WITH AI
REPLACE nedel WITH NI
REPLACE den WITH DI
REPLACE para WITH IP
ENDFOR
ENDFOR
ENDFOR
ENDFOR

P.S. Вот скрин таблицы для одной аудитории по всем неделям, дням и парам.

Таблица
...
Рейтинг: 0 / 0
23.04.2007, 12:30
| Ответить | Цитировать | Написать  
Нужна помощь начинающему
    #34480151
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=AlexiS=-
Участник
Так в чем вопрос-то?
Код рабочий - только для скорости стоит заменить append+repl на insert
INSERT INTO audit_1 (audit,nedel,den,para) VALUES (ai,ni,di,ip)
...
Рейтинг: 0 / 0
23.04.2007, 13:30
| Ответить | Цитировать | Написать  
Нужна помощь начинающему
    #34480431
druid84
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
druid84
Гость
Так я вставляю весь код в окно Command, нажимаю Enter и он мне выдает разные ошибки :(
P.S. Если не сложно я прикреплю файл, а вы это пропишите.
...
Рейтинг: 0 / 0
23.04.2007, 14:30
| Ответить | Цитировать | Написать  
Нужна помощь начинающему
    #34480561
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=AlexiS=-
Участник
Если вы выполняете код в командном окне , то нужно его выделить .
Лучше оформить это программой .
А ругаеться , поскольку у вас в таблице audit_1 поле audit символьное - а вы туда цифру пихаете.
Я так понял , что там должен быть номер аудитории из таблицы audit
т.е. это должно быть примерно так (пути поставьте свои)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Close Tables All
Use d:\Work\dms\kl\Tables\audit In  0  Shared
Use d:\Work\dms\kl\Tables\audit_1 In  0  Exclusive
Select audit_1
Zap
For AI =  1  To  49  
	For NI =  1  To  2  
		For DI =  1  To  5  
			For IP =  1  To  5  
				Insert Into audit_1 (audit,nedel,den,Para) Select  nom ,m.NI,m.DI,m.IP From audit Where In=AI
			Endfor
		Endfor
	Endfor
Endfor
...
Рейтинг: 0 / 0
23.04.2007, 14:58
| Ответить | Цитировать | Написать  
Нужна помощь начинающему
    #34480567
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=AlexiS=-
Участник
блин - первый цикл до 48 (опечатка) - хотя в принципе будет работать и так
...
Рейтинг: 0 / 0
23.04.2007, 14:59
| Ответить | Цитировать | Написать  
Нужна помощь начинающему
    #34480858
druid84
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
druid84
Гость
Спасибо помогло!!!
Есть еще один маленький вопрос: если в среду (3 день) делать 7 пар, а не 5, то где в цикле это поправить?
Тоесть все дни по 5, а среда по 7
...
Рейтинг: 0 / 0
23.04.2007, 15:53
| Ответить | Цитировать | Написать  
Нужна помощь начинающему
    #34481228
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=AlexiS=-
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
For AI =  1  To  48  
	For NI =  1  To  2  
		For DI =  1  To  5  
                       Kol_par=iif(DI= 3 , 7 , 5 )
			For IP =  1  To Kol_par 
				Insert Into audit_1 (audit,nedel,den,Para) Select  nom ,m.NI,m.DI,m.IP From audit Where In=AI
			Endfor
		Endfor
	Endfor
Endfor
...
Рейтинг: 0 / 0
23.04.2007, 17:01
| Ответить | Цитировать | Написать  
Нужна помощь начинающему
    #34481235
druid84
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
druid84
Гость
druid84Спасибо помогло!!!
Есть еще один маленький вопрос: если в среду (3 день) делать 7 пар, а не 5, то где в цикле это поправить?
Тоесть все дни по 5, а среда по 7
Спасибо доделал сам, чето ступил.
...
Рейтинг: 0 / 0
23.04.2007, 17:03
| Ответить | Цитировать | Написать  
Нужна помощь начинающему
    #34481384
druid84
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
druid84
Гость
-=AlexiS=-
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
For AI =  1  To  48  
	For NI =  1  To  2  
		For DI =  1  To  5  
                       Kol_par=iif(DI= 3 , 7 , 5 )
			For IP =  1  To Kol_par 
				Insert Into audit_1 (audit,nedel,den,Para) Select  nom ,m.NI,m.DI,m.IP From audit Where In=AI
			Endfor
		Endfor
	Endfor
Endfor

Так еще раз спасибо, этот вариант мне нравится больше чем мой!!!
...
Рейтинг: 0 / 0
23.04.2007, 17:39
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нужна помощь начинающему
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=34480858&tid=1589479]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 23ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 202ms
total:  290ms
созд. / загр.: 290ms
x
x
Закрыть


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