powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Снова объединение курсоров
2 сообщений из 27, страница 2 из 2
Снова объединение курсоров
    #35487796
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DezhurДолжно получиться
xyrntiptextxtexty100110"r1"1"Текст строки1_1""Текст строки1a"101111"r1"1"Текст строки1_2""Текст строки1b"

Проблемы твои в том что у тебя нет уникального ключа, для полного счастья тебе надо добавить в исходные данные еще одно поле RecNum в котором пронумировать предварительно записи с одинаковыми (RN,TYP)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
CREATE CURSOR C1 (RECNOM i, X N( 3 ),RN C( 2 ),Tip C( 1 ),TextX C( 20 ) )
INSERT INTO C1 VALUES  ( 1 ,  100  , "r1" , "1" , "Текст строки1_1")
INSERT INTO C1 VALUES  ( 2 ,  101  , "r1" , "1" , "Текст строки1_2")
INSERT INTO C1 VALUES  ( 1 ,  200  , "r2" , "1" , "Текст строки2")

CREATE CURSOR C2 (RECNOM i, Y N( 3 ), RN C( 2 ) , Tip C( 1 ) , TextY C( 20 ))
INSERT INTO C2 VALUES ( 1 ,  110  , "r1" , "1" , "Текст строки1a")
INSERT INTO C2 VALUES ( 2 ,  111  , "r1" , "1" , "Текст строки1b")
INSERT INTO C2 VALUES ( 1 ,  210  , "r2" , "1" , "Текст строки2a")
INSERT INTO C2 VALUES ( 2 ,  211  , "r2" , "1" , "Текст строки2b")

select distinct c1.x, c2.y, NVL(C1.RN, C2.RN) as RN, NVL(C1.TIP, c2.TIP) as TIP, c1.TextX, c2.TextY;
	from c1 full join c2 on C1.RN=C2.RN AND C1.TIP=C2.TIP and C1.RECNOM = C2.RECNOM;
	order by  1 

Будет:
xyrntiptextxtextyNULL211"r2""1"NULL"Текст строки2b"100110"r1""1""Текст строки1_1""Текст строки1a"101111"r1""1""Текст строки1_2""Текст строки1b"200210"r2""1""Текст строки2""Текст строки2a"
...
Рейтинг: 0 / 0
Снова объединение курсоров
    #35488063
Dezhur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
YES!

Все оказалось не так сложно как казалось вначале,
главное сразу определить все требования к необходимому результату.

Огромное спасибо!
...
Рейтинг: 0 / 0
2 сообщений из 27, страница 2 из 2
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Снова объединение курсоров
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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