//считываем первую строку и генерируем колонки
МассивТипаВыбора = Новый Массив;
МассивТипаВыбора.Добавить(Тип("ТаблицаЗначений"));
ОписаниеТипаВыбора = Новый ОписаниеТипов(МассивТипаВыбора);
МассивРеквизитов = Новый Массив;
МассивРеквизитов.Добавить(Новый РеквизитФормы("Таблица", ОписаниеТипаВыбора, "", "ТЗН"));
Столбцы = ПолучитьИзВременногоХранилища(ПолучитьСписокКолонок());
Если Столбцы.Количество() = 0 Тогда
Возврат;
КонецЕсли;
Счк = 0;
ТЗ = Новый ТаблицаЗначений;
Для Счк = 0 По Столбцы.Количество()-1 Цикл
НоваяКолонка = ТЗ.Колонки.Добавить(Столбцы[Счк].Значение.Реквизит);
КонецЦикла;
Для Каждого Колонка Из ТЗ.Колонки Цикл
МассивРеквизитов.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения,"Таблица"));
КонецЦикла;
ИзменитьРеквизиты(МассивРеквизитов);
ТаблицаПолейВыбора = Элементы.Добавить("ТЗН", Тип("ТаблицаФормы"));
ТаблицаПолейВыбора.ПутьКДанным = "Таблица";
ТаблицаПолейВыбора.Отображение = ОтображениеТаблицы.Список;
Для Каждого Колонка Из ТЗ.Колонки Цикл
НовыйЭлемент = Элементы.Добавить(Колонка.Имя, Тип("ПолеФормы"), ТаблицаПолейВыбора);
НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;
НовыйЭлемент.ПутьКДанным = "Таблица." + Колонка.Имя;
КонецЦикла;
Для Каждого Колонка Из ТЗ.Колонки Цикл
НовыйЭлемент = Элементы.Добавить(Колонка.Имя, Тип("ПолеФормы"), ТаблицаПолейВыбора);
НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;
НовыйЭлемент.ПутьКДанным = "Таблица." + Колонка.Имя;
КонецЦикла;
Гм, разобрался, нужно просто добавлять как новые рекизиты формы, если таблица с реквизитами прописана на закладке "Реквизиты".
ДобавляемыеРеквизиты = Новый Массив();
ОписаниеТиповДляРеквизита = Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(150, ДопустимаяДлина.Переменная));
РеквизитТаблицы = Новый РеквизитФормы("_СерияНаименование", ОписаниеТиповДляРеквизита, "УточнениеНоменклатуры");
ДобавляемыеРеквизиты.Добавить(РеквизитТаблицы);
ИзменитьРеквизиты(ДобавляемыеРеквизиты);
ОписаниеТиповДляРеквизита = Новый ОписаниеТипов("Дата",,,Новый КвалификаторыДаты(ЧастиДаты.Дата));
РеквизитТаблицы = Новый РеквизитФормы("_ГоденДо", ОписаниеТиповДляРеквизита, "УточнениеНоменклатуры");
ДобавляемыеРеквизиты.Добавить(РеквизитТаблицы);
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший