powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Kak sozdat takie tablitsi?
2 сообщений из 2, страница 1 из 1
Kak sozdat takie tablitsi?
    #32295652
novichek1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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)
...
Рейтинг: 0 / 0
Kak sozdat takie tablitsi?
    #32295901
andrew_Pr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а что вторая таблица (FF NN) очень большая? или такую операцию надо проделывать регулярно? А то ведь проще тупо написать:
Код: plaintext
1.
2.
copy to newtable1 fields  QQ, F2, F3
copy to newtable2 fields  QQ, F1, F5, F7 
copy to newtable3 fields  QQ, F4 ,F6 

и усе.
ну если очень хочется, чтобы все было "как у больших", то..
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
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
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Kak sozdat takie tablitsi?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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