Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Kak sozdat takie tablitsi?  [new]
novichek1
Guest
U menya takaya problema yest 2 tablitsa.
Struktura 1-vo tablitsa: QQ, F1,F2,F3,...Fn.
Struktura 2-vo tablitsa: FF,NN
Polya 1-Y tablitsi (nachinaya F1) zapisi 2-y tablitsi (polya FF).
2-YA TABLITSA TAKAYA:

FF NN

F1 2
F2 1
F3 1
F4 3
F5 2
F6 3
F7 2

Mne nado takie tablitsi zdelat:
1) QQ, F2, F3 (NN=1)
2) QQ, F1, F5, F7 (NN=2)
3) QQ, F4 ,F6 (NN=3)

Kak eto zdelat ?
(foxpro 2.6)
16 окт 03, 16:43    [379819]     Ответить | Цитировать Сообщить модератору
 Re: Kak sozdat takie tablitsi?  [new]
andrew_Pr
Member

Откуда: Москва
Сообщений: 167
а что вторая таблица (FF NN) очень большая? или такую операцию надо проделывать регулярно? А то ведь проще тупо написать:
copy to newtable1 fields  QQ, F2, F3

copy to newtable2 fields QQ, F1, F5, F7
copy to newtable3 fields QQ, F4 ,F6

и усе.
ну если очень хочется, чтобы все было "как у больших", то..
select table2

store "QQ" to lst1,lst2,lst3
select TABLIZA2
scan
do case
case nn=1
lst1=lst1+","+FF
case nn=2
lst2=lst2+","+FF
case nn=3
lst3=lst3+","+FF
endcase
endscan
copy to newtable1 fields &lst1
copy to newtable2 fields &lst2
copy to newtable3 fields &lst3
16 окт 03, 19:53    [380151]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить