0
FrostBite101
17.05.20
✎
15:02
|
Хотел вывести все дерево значений, но что-то ругается. Не могу понять.
&НаСервере
Процедура Вывод()
Дерево = Новый ДеревоЗначений;
Дерево.Колонки.Добавить("Год");
Дерево.Колонки.Добавить("Месяц");
Дерево.Колонки.Добавить("Градусы");
Строка = Дерево.Строки.Добавить();
Строка.Год = 2015;
Строка.Месяц = "Все месяцы";
Строка.Градусы = 100;
Подстрока = Строка.Строки.Добавить();
Подстрока.Год = 2015;
Подстрока.Месяц = "Первый";
Подстрока.Градусы = 15;
Строка = Дерево.Строки.Добавить();
Строка.Год = 2017;
Строка.Месяц = "Все месяцы";
Строка.Градусы = 5;
Подстрока = Строка.Строки.Добавить();
Подстрока.Год = 2017;
Подстрока.Месяц = "Пятый";
Подстрока.Градусы = 30;
ЗначениеВДанныеФормы(Дерево,Реквизит1);
Рекурсия(Дерево.Строки);
КонецПроцедуры
&НаСервере
Процедура Рекурсия(СтрокиТаб)
Для Каждого Строка Из СтрокиТаб Цикл
Сообщить(Строка(Строка.Год)+Строка.Месяц+Строка(Строка.Градусы));
Рекурсия(Строка.Строки);
КонецЦикла;
КонецПроцедуры
|
|