0
falselight
28.04.20
✎
06:40
|
Вот этой процедурой программно создаю таблицу на форме.
Но располагается она после создания вот так
Как добавить таблицу в группу что на пустом месте?
&НаСервере
Процедура СоздатьТаблицуНаФорме(ТзДляСоздания)
//
Таблица = РеквизитФормыВЗначение("Товары");
МассивРеквизитов = Новый Массив;
Для Каждого Колонка Из Таблица.Колонки Цикл
МассивРеквизитов.Добавить("Товары." + Колонка.Имя);
КонецЦикла;
//
ИзменитьРеквизиты(,МассивРеквизитов);
//
ЭлементТаблица = Элементы.Найти("Товары");
Если ЭлементТаблица <> Неопределено Тогда
Элементы.Удалить(ЭлементТаблица);
КонецЕсли;
//
ЭлементТаблица = Элементы.Добавить("Товары", Тип("ТаблицаФормы"));
ЭлементТаблица.ПутьКДанным = "Товары";
ЭлементТаблица.Отображение = ОтображениеТаблицы.Список;
ЭлементТаблица.ПоложениеВКоманднойПанели=
//
МассивРеквизитов.Очистить();
Для Каждого Колонка ИЗ ТзДляСоздания.Колонки Цикл
МассивТипов = Новый Массив;
МассивТипов.Добавить(Колонка.ТипЗначения);
НоваяКолонка = Новый РеквизитФормы(Колонка.Имя, Новый ОписаниеТипов(МассивТипов), "Товары");
МассивРеквизитов.Добавить(НоваяКолонка);
КонецЦикла;
//
ИзменитьРеквизиты(МассивРеквизитов);
ЗначениеВРеквизитФормы(ТзДляСоздания, "Товары");
//
ЭлементТЗ = Элементы.Товары;
Для Каждого Колонка ИЗ ТзДляСоздания.Колонки Цикл
НовыйЭлементФормы = Элементы.Добавить("Товары" + Колонка.Имя, Тип("ПолеФормы"), ЭлементТЗ);
НовыйЭлементФормы.Вид = ВидПоляФормы.ПолеВвода;
НовыйЭлементФормы.ПутьКДанным = "Товары." + Колонка.Имя;
КонецЦикла;
КонецПроцедуры
//
|
|