Развернуть иерархический справочник(дерево) полностью
Добрый день. Есть задача - сделать кнопку на форме списка: развернуть иерархический справочник(дерево) полностью
Нашел два способа
1)
Срабатывает только один раз. При повторном нажатии кнопки не работает.
2) Программное нажатие сочетания "Ctrl + Shift + Alt + Num+". Пытался по-размому писать, не работает вообще.
Помогите, пожалуйста
Нашел два способа
1)
Элементы.Список.НачальноеОтображениеДерева = НачальноеОтображениеДерева.РаскрыватьВсеУровниСрабатывает только один раз. При повторном нажатии кнопки не работает.
2) Программное нажатие сочетания "Ctrl + Shift + Alt + Num+". Пытался по-размому писать, не работает вообще.
ОбъектShell = Новый COMОбъект("Wscript.Shell");
ОбъектShell.SendKeys("^+%{NUMLOCK}(+)");Помогите, пожалуйста
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(9) А ты собрался разворачивать записи внутри БД, или все таки отображение данных в дереве на форме?
А если не знаешь, что такое таблица формы и что такое её элементы - тебя будут рады видеть на обучающих курсах по основам разработки управляемых форм 1С.
А если не знаешь, что такое таблица формы и что такое её элементы - тебя будут рады видеть на обучающих курсах по основам разработки управляемых форм 1С.
Если динамический список, то поменяй режим отображения на "Список" вместо дерева
или тебе с сохранением иерархии надо?
или тебе с сохранением иерархии надо?
&НаКлиенте
Процедура СвернутьСписок(Команда)
Если не Элементы.Список.ТекущиеДанные.РодительскаяГруппировкаСтроки = Неопределено Тогда
Элементы.Список.ТекущаяСтрока = Элементы.Список.ТекущиеДанные.РодительскаяГруппировкаСтроки;
КонецЕсли;
//Свернуть↓
Если Элементы.СвернутьСписок.Пометка = Ложь Тогда
Элементы.СвернутьСписок.Пометка = не Элементы.СвернутьСписок.Пометка;
Элементы.СвернутьСписок.Заголовок = "Развернуть список" ;
Элементы.Список.Отображение = ОтображениеТаблицы.Список;
//Развернуть↓
Иначе
Элементы.СвернутьСписок.Пометка = не Элементы.СвернутьСписок.Пометка;
Элементы.СвернутьСписок.Заголовок = "Свернуть список";
Элементы.Список.Отображение = ОтображениеТаблицы.Дерево;
Элементы.Список.НачальноеОтображениеДерева = НачальноеОтображениеДерева.РаскрыватьВсеУровни;
КонецЕсли;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот