Программно создать ДеревоЗначений

[Ученик_2014]

Доброго времени суток.
Подскажите пожалуйста как создать на обычной форме Табличное поле Тип - ДеревоЗначений ПРОГРАММНО.

Обхожу дерево и по количеству веток первого уровня создаю вкладки.

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


Для каждого Строка0 из ДеревоФайл.Строки Цикл     /
Для каждого Строка1 из Строка0.Строки Цикл
                                ЭлементыФормы.Панель.Страницы.Добавить(Строка1.Сущность,Строка1.Сущность);
                Для каждого Строка2 из Строка1.Строки Цикл
                                         ??? ветки нижнего уровня отобразить как дерево на созданной вкладке
         конецЦикла;
                       КонецЦикла;
КонецЦикла;


[belu]

Привет!

как создать на обычной форме Табличное поле Тип - ДеревоЗначений ПРОГРАММНО

Создать программно можно так:

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
   //Создаем табличное поле
   //Панель1 уже создана на форме
   ТабПоле = ЭлементыФормы.Добавить(тип("ТабличноеПоле"),"ИмяТабПоля",Истина,ЭлементыФормы.Панель1);
    //Ставим тип поля Дерево значиний   
   ТабПоле.ТипЗначения = Новый ОписаниеТипов("ДеревоЗначений");
   //Устанавливаем размеры
   ТабПоле.Верх=10;
    ТабПоле.Ширина=ЭтаФорма.Ширина;
    ТабПоле.Высота=ЭтаФорма.Высота-1;
КонецПроцедуры