Имя: Пароль:
1C
1С v8
Как свернуть дерево
0 picom
 
22.01.14
15:02
8.2 обыч формы
Дерево разворачивается командой
..
ЭлементыФормы.СводТабл.НачальноеОтображениеДерева = НачальноеОтображениеДерева.РаскрыватьВсеУровни;
..
А вот свернуть его после этого командой
ЭлементыФормы.СводТабл.НачальноеОтображениеДерева = НачальноеОтображениеДерева.НеРаскрывать;
не получается.
..
Что я делаю не так?
1 Irbis
 
22.01.14
15:03
Это как с ребенком, если родил обратно уже не засунешь. Ведь недаром же Начальное.
2 WildSery
 
22.01.14
15:08
ТабличноеПоле.Развернуть(<Строка>, <СПодчиненными>);
ТабличноеПоле.Свернуть(<Строка>);
3 picom
 
22.01.14
15:10
(2) Это не ТП
4 Infsams654
 
22.01.14
15:11
(2) это не про ТабличноеПоле

Для Каждого ТекущаяВетка Из МоеДерево.Строки Цикл
        Для Каждого ТекущаяСтрока Из ТекущаяВетка.Строки Цикл
            ЭлементыФормы.МоеДерево.Свернуть(ТекущаяСтрока);
            Если ТекущаяСтрока.Строки.Количество() > 0 Тогда
                Для Каждого ТекСтрока Из ТекущаяСтрока.Строки Цикл
                    ЭлементыФормы.МоеДерево.Свернуть(ТекСтрока);
                КонецЦикла;
            КонецЕсли;
        КонецЦикла;
        ЭлементыФормы.МоеДерево.Свернуть(ТекущаяВетка);
    КонецЦикла;

аналогично Развернуть
Как то так
5 picom
 
22.01.14
15:14
(4) йееее, спасибо
Для Каждого ТекущаяСтрока Из СводТабл.Строки Цикл
        ЭлементыФормы.СводТабл.Свернуть(ТекущаяСтрока);
    КонецЦикла;
6 picom
 
22.01.14
15:15
Кстати это долго работает
как клавиши сэмулировать
ctrl shift -
?
7 WildSery
 
22.01.14
15:20
(3) Не ТП? А чем, простите, вы тогда дерево на форме отображаете?
8 Infsams654
 
22.01.14
15:31
(7) сорри, да ТП, задумался
9 bolobol
 
22.01.14
16:31
(6) Эмуляция клавиш для каждого узла дороже встанет. Но раз так - копать пример "Максимизировать окно в 1С7.7", там что-то типа WSShell использовалось.
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс