Здравствуйте! Есть 2 таблицы значений (ТЗ)
Пример:
ТЗ1
Фабрика1
Фабрика2
Фабрика3

ТЗ2
Фабрика2  Товар1
Фабрика1  Товар2
Фабрика3  Товар3
Фабрика2  Товар4

Как получить итоговую таблицу
Фабрика1  Товар2
Фабрика2  Товар1, Товар4
Фабрика3  Товар3

Фабрика2  Товар1, Товар4
Сколько таких совпадений  - столько колонок должно добавиться?


Фабрика1  Товар2
Фабрика2  Товар1, Товар4
Фабрика3  Товар3


Вторая колонка должна быть списком значений?

(0) Ручками перебирать

(3) не ручками, а циклом

(0) что сложного?

Сортировка, цикл с уловием и третья ТЗ тебя спасут.

это как раз задача на проф пригодность.


сделайте её  не построчно, а по колонкам.

(0) загнать ТЗ в запрос на 1sqlite и сделать group_concat

спасибо за активность. Сортировка, цикл с уловием и третья ТЗ тебя спасут. Не могу вкурить. Еси не трудно можно код?

(4) Дааа ... Учитель.

ИндексированнаяТаблица, Группировать() и перебор тзПотомки

(10) как в (7) красившее..
:)

понил...СПС. ща попробую.

(7) sqlite работает с ТЗ? не знал...

(13) конечно, уложитьТЗ и привет.. а там примитивный запрос с concat .. и усё. Странно, что в t-sql нет такой функции, там только рученьками писать

(14)
есть pivot

(14) в 2005 и выше есть pivot

(15) ага , и другие ранжирующие функции.. токма, не у всех скуль>=2005
^)

(0) на вот, пример

Процедура Сформировать()
    Попытка
        база = СоздатьОбъект("SQLiteBase");
    Исключение
        ЗагрузитьВнешнююКомпоненту("1sqlite.dll");
        база = СоздатьОбъект("SQLiteBase");
    КонецПопытки;
    база.Открыть(":memory:");
    запрос = база.НовыйЗапрос();    
    ТЗ = СоздатьОбъект("ТаблицаЗначений");
    ТЗ.НоваяКолонка("ид","Число");
    ТЗ.НоваяКолонка("Имя","Строка");
    Для к = 1 По 5 Цикл
        ТЗ.НоваяСтрока();
        ТЗ.ид = 1;
        ТЗ.Имя = "Вася"+к;
    КонецЦикла;
    Для к = 1 По 5 Цикл
        ТЗ.НоваяСтрока();
        ТЗ.ид = 2;
        ТЗ.Имя = "Федя"+к;
    КонецЦикла;
    база.УложитьТЗ(ТЗ,"Вася",0);
    ТекстЗапроса = "
    |select ид,group_concat(Имя) from Вася group by ид";
    запрос.ВыполнитьЗапрос(ТекстЗапроса).ВыбратьСтроку();
КонецПроцедуры

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

(8)

тз3 = СоздатьОбъект("таблицазначений")
тз3.новаяколонка("фабрика");
тз3.новаяколонка("товар" );

тз2.сортировать("фабрика");

тз1.ВыбратьСтроки();
пока тз1.ПолучитьСтроку()=1 Цикл
нс = 0;
если тз2.найтизначение(тз1.фабрика, нс, "фабрика")=0 тогда
продолжить;
Конецесли;

тз3.новаястрока();
тз3.фабрика = тз1.фабрика;
тз3.товар = создатьобъект("списокзначений");

пока 1=1 цикл
тз2.получитьстрокупономеру(нс);
если тз2.фабрика <> тз1.фабрика тогда
прервать;
иначе
тз3.товар.добавитьзначение(тз2.товар);
конеццикла;
конеццикла;

конецесли;
КонецЦикла;

если точнее, то как-то так:

тз1.ВыбратьСтроки();
пока тз1.ПолучитьСтроку()=1 Цикл

нс = 0;

если тз2.найтизначение(тз1.фабрика, нс, "фабрика")=0 тогда
продолжить;
Конецесли;

тз3.новаястрока();
тз3.фабрика = тз1.фабрика;
тз3.товар = создатьобъект("списокзначений");

пока 1=1 цикл
тз2.получитьстрокупономеру(нс);
если тз2.фабрика <> тз1.фабрика тогда
прервать;
иначе
тз3.товар.добавитьзначение(тз2.товар);

конеццикла;

нс = нс + 1;
КонецЦикла;

блин, в блокноте сложно писать код.

нс = нс + 1; - надо затолкать внутрь второго цикла

(20) можно и одним циклом.
только пейсать лениво