&НаСервере

Процедура СоздатьТаблицуНаФорме(ИмяТаблицы, ТаблицаИсточник, ТипЭлемента)

МассивДобавляемыхРеквизитов = Новый Массив;

МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы(ИмяТаблицы, Новый ОписаниеТипов(ТипЭлемента)));

Для Каждого КолонкаТЗ Из ТаблицаИсточник.Колонки Цикл

МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы(КолонкаТЗ.Имя, КолонкаТЗ.ТипЗначения, ИмяТаблицы));

КонецЦикла;

ИзменитьРеквизиты(МассивДобавляемыхРеквизитов);

ЗначениеВРеквизитФормы(ТаблицаИсточник, ИмяТаблицы);

ЭлементТаблица = Элементы.Добавить(ИмяТаблицы, Тип("ТаблицаФормы"));

ЭлементТаблица.ПутьКДанным = ИмяТаблицы;

ЭлементТаблица.Отображение = ОтображениеТаблицы.Список;

ЭлементТаблица.ИзменятьПорядокСтрок = Ложь;

ЭлементТаблица.ИзменятьСоставСтрок = Ложь;

Для Каждого Колонка Из ТаблицаИсточник.Колонки Цикл

НовыйЭлемент = Элементы.Добавить(Колонка.Имя, Тип("ПолеФормы"), ЭлементТаблица);

НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;

НовыйЭлемент.ПутьКДанным = ИмяТаблицы + "." + Колонка.Имя;

КонецЦикла;

КонецПроцедуры