1С 8.x : Как самостоятельно заполнить дерево значений?

 Процедура ЗаполнениеДерева(Кнопка) 

	Дерево.Колонки.Очистить(); 

	Дерево.Колонки.Добавить("ИмяКолонки"); 



	// Создать первую строку. Правильнее сказать создать элемент 

	// коллекции. Он помещается в переменную "СтрокаВерхнегоУровня". 

	СтрокаВерхнегоУровня = Дерево.Строки.Добавить(); 



	// В колонку "ИмяКолонки" записать значение "Старшая". 

	СтрокаВерхнегоУровня.ИмяКолонки = "Старшая"; 



	// Создать строку подчиненную "Старшей". 

	ПодчиненнаяСтрока =СтрокаВерхнегоУровня.Строки.Добавить(); 

	ПодчиненнаяСтрока.ИмяКолонки = "Первая подчиненная"; 



	ПодчиненнаяВторогоУровня = ПодчиненнаяСтрока.Строки.Добавить(); 

	ПодчиненнаяВторогоУровня.ИмяКолонки = "Первая нижняя"; 



	ПодчиненнаяВторогоУровня = ПодчиненнаяСтрока.Строки.Добавить(); 

	ПодчиненнаяВторогоУровня.ИмяКолонки = "Вторая нижняя"; 



	ПодчиненнаяСтрока = СтрокаВерхнегоУровня.Строки.Добавить(); 

	ПодчиненнаяСтрока.ИмяКолонки = "Вторая подчиненная"; 



	// Использование метода позволит увидеть результат работы 

	// с деревом значений в табличном поле. 

	ЭлементыФормы.Дерево.СоздатьКолонки(); 



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



Процедура ОткрытиеВетки(Кнопка) 



	// Сделать текущим именно элемент коллекции "Строки". 

	РезультатПоиска = Дерево.Строки.Найти("Первая нижняя", "ИмяКолонки", Истина); 



	Если РезультатПоиска <> Неопределено Тогда 

		ЭлементыФормы.Дерево.ТекущаяСтрока = РезультатПоиска; 

	КонецЕсли; 



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