ТаблицаЗначений() Объединить одинаковые строки и вывести через запятую.

[Infinitum]

Добрый день форумчане!

проблемка в следующем:

Имеется Таблица значений:

Организации	Пользователи	Роли
Фирма1	Александр	Администраторы
Фирма1	Александр	Директор
Фирма2	Александр	Администраторы
Фирма1	Светлана	Главный Бухгалтер
Фирма2	Светлана	Главный Бухгалтер

и т.д...

А как правильно сделать так:

Организации	Пользователи	Роли
Фирма1,Фирма2	Александр	Администраторы
Фирма1	Александр	Директор
Фирма1,Фирма2	Светлана	Главный Бухгалтер

?

[alex0402]

Имеется Таблица значений:

Код Выделить Развернуть


Для каждого Стр из ИмеетсяТаблицаЗначений Цикл
Поместить в новую таблицу после поиска
КонецЦикла


[Infinitum]

Имеется Таблица значений:

Код Выделить Развернуть


Для каждого Стр из ИмеетсяТаблицаЗначений Цикл
Поместить в новую таблицу после поиска
КонецЦикла


"Поместить в новую таблицу после поиска "

Про поиске если можно по подробнее)

Помогите чайнику)

[alex0402]

Код Выделить Развернуть


НоваяТаблица = ИмеетсяТаблицаЗначений.СкопироватьКолонки();
СтруктураДляПоиска = Новый Структура("Пользователи,Роли");
Для каждого Стр из ИмеетсяТаблицаЗначений Цикл
    ЗаполнитьЗначенияСвойств(СтруктураДляПоиска,Стр);
    нСтроки = НоваяТаблица.НайтиСтроки(СтруктураДляПоиска);
    Если нСтроки.Количество() = 0 Тогда
        ЗаполнитьЗначенияСвойств(НоваяТаблица.Добавить(),Стр);
    Иначе
        нСтроки[0].Органицции = нСтроки[0].Органицции + "," + Стр.Организации
    КонецЕсли;
КонецЦикла


[Infinitum]

Код Выделить Развернуть


НоваяТаблица = ИмеетсяТаблицаЗначений.СкопироватьКолонки();
СтруктураДляПоиска = Новый Структура("Пользователи,Роли");
Для каждого Стр из ИмеетсяТаблицаЗначений Цикл
    ЗаполнитьЗначенияСвойств(СтруктураДляПоиска,Стр);
    нСтроки = НоваяТаблица.НайтиСтроки(СтруктураДляПоиска);
    Если нСтроки.Количество() = 0 Тогда
        ЗаполнитьЗначенияСвойств(НоваяТаблица.Добавить(),Стр);
    Иначе
        нСтроки[0].Органицции = нСтроки[0].Органицции + "," + Стр.Организации
    КонецЕсли;
КонецЦикла


логика понятная))
Спасибо)

но появляется ошибка:

{Форма.Форма(62)}: Преобразование значения к типу Число не может быть выполнено
         нСтроки[0].Организация = нСтроки[0].Организация + "," + Стр.Организация;

Добавлено: 04 дек 2016, 17:41

Вопрос закрыт!))))
Огромное спасибо!!!))