powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / нужна помощь
3 сообщений из 3, страница 1 из 1
нужна помощь
    #37894548
rikitiki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите, уже не соображаю
есть таблица
1 номер клиента
2 номер заявки

нужно сделать курсор (таблицу) где
номеру клиента соответствуют все его заявки

например

клиент 1 - заявки 5-00001/12, 5-00004/12, 5-00010/12
клиент 2 - заявки 5-00009/12
клиент 5 - заявки ...
и т.д.

делать сканом или можно как-то select-ом
...
Рейтинг: 0 / 0
нужна помощь
    #37895424
Pulsar_p
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rikitiki,
*************
SELECT * FROM table1 where kod_zam=1 INTO CURSOR client1
SELECT * FROM table1 where kod_zam=2 INTO CURSOR client2
SELECT * FROM table1 where kod_zam=... INTO CURSOR client...
*************
Или я чего-то не правильно понял?
...
Рейтинг: 0 / 0
нужна помощь
    #37895575
Pulsar_p
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Или подожди-ка...
Если я правильно понял, тебе в одну строку надо? Тут дело похитрее будет.
Эх, не могу сосредоточиться...
Тогда вот так:
На 9-ом Фоксе СП-2 работает, на других не знаю...
берем твой прикрепленный файл table1
тип поля преобразуем в memo, потому как хрен знает, сколько этих заявок будет, размеров символьного поля может и не хватить...
************************************************Начало программы
Select Distinct kod_zam From table1 Into Cursor disttable1
Select a.*, [клиент ]+ALLTRIM(STR(kod_zam))+[- заявки ] zayavkiclienta,;
ploskayazayavka([table1],kod_zam) nomerazayavok;
FROM disttable1 a;
INTO Cursor distclient Readwrite
BROWSE
****
*Предварительная функция заполнения номеров заявок (смотри, откуда она вызывается)
Function ploskayazayavka (priemtable,bobu)
*priemtable - откуда берутся данные о заявках
*bobu - номер клиента
nkommem = []
kk = 0
Select Top 1 Cast(m.nkommem As M) nkommem ;
FROM ( Select Execscript('IIF(m.kk == 0, EXECSCRIPT([m.kk = 1]),;
EXECSCRIPT([m.nkommem = m.nkommem + "№ "+ALLTRIM(kod_papper)+"; "]))'),;
kod_papper;
FROM &priemtable;
WHERE kod_zam=bobu ) zz Order By kod_papper Into Cursor wremcursnenado
Return nkommem
**************************************Конец программы
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / нужна помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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