Вот код:
Товары = СоздатьОбъект("ТаблицаЗначений");
Товары.НоваяКолонка("Номенклатура");
Товары.НоваяКолонка("Цена");
СпрНом = СоздатьОбъект("Справочник.Товары");
СпрНом.ВыбратьЭлементы();
Пока СпрНом.ПолучитьЭлемент() = 1 Цикл
Если СпрНом.ЭтоГруппа() = 0 Тогда
Если СпрНом.Розн_Цена > 0 Тогда
Товары.НоваяСтрока();
Товары.Номенклатура = СпрНом;
Товары.Цена = СпрНом.Розн_Цена;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Почему-то не заполняется "Номенклатура" в списке значений. Смотришь отладчиком после цикла там пусто, "Цена" записывает Уже голову сломал.