В событии ПриИзменении() для дерева значений программно меняю значение в одном из полей. И после этого все узлы ДЗ сворачиваются автоматически.

Подскажите, как избежать этого сворачивания ДЗ?

Вот код:
    ДеревоОбъект = РеквизитФормыВЗначение("ДеревоПК", Тип("ДеревоЗначений"));
    
    ПараметрыОтбора = Новый Структура;
    ПараметрыОтбора.Вставить("Позиция", вхПозиция);
    ПараметрыОтбора.Вставить("Наименование", вхНаименование);
    СтрокиДерева = ДеревоОбъект.Строки.НайтиСтроки(ПараметрыОтбора, Истина);
    Если СтрокиДерева.Количество() > 0 Тогда
        СтрокиДерева[0][вхПараметрИмя] = вхЗначение;
    КонецЕсли;
    
    ЗначениеВРеквизитФормы(ДеревоОбъект, "ДеревоПК");

узлы не сворачиваюся а дерево заново рисуется

(1) Хорошо.

Как тогда запомнить состояние (развёрнут/свёрнут) по каждому из узлов, чтобы потом при "заново рисуется" восстановить положение? И каким событием перехватить перерисовку?

Или как можно отказаться от перерисовки дерева?

(0) перебирай ЭлементФормы.ДеревоПК через ПолучитьЭлементы(), а не через преобразование в тип ДеревоЗначений.
При обратном преобразовании дерево заново перестроится с параметрами установленными при настройки элемента формы (НачальноеОтображениеДерева - Раскрывать все уровни - дерево будет развёрнутым).

то есть менять дерево на клиенте

(2) не преобразовывать, а перебирать
стр=ЭлементыФормы.ДеревоПК.ТекущиеДанные; - текущая ветка
УровеньВниз=стр.ПолучитьЭлементы();
УровеньВверх=стр.ПолучитьРодителя();

(4) можно и наСервере, только придётся получить текущую строку через ПолучитьПоИдентификатору()

(4) У меня вся обработка на сервере ведётся...
Получается, мне надо на выходе этой обработки получать нужное значение и в ТекущиеДанные по имени колонки это значение подставлять? В таком случае дерево не будет перерисовываться?

(6) ПолучитьПоИдентификатору()?

НайтиПоИдентификатору(). Наверное, Вы это имели ввиду? И опять же, как это отразится на перерисовке дерева?

Попробую так сделать...

(6) Попробую сделать как в (3)

(8) на дереве обновятся только текущие данные

(10) Сделал как в (3)
    Флаг = Ложь;
    ВсеСтроки = ДеревоПК.ПолучитьЭлементы();
    Для Каждого Строка Из ВсеСтроки Цикл
        Если Строка.Позиция = вхПозиция И Строка.Наименование = вхНаименование Тогда
            Строка[вхПараметрИмя] = вхЗначение;
            Прервать;
        Иначе
            ВсеПодстроки = Строка.ПолучитьЭлементы();
            Для Каждого Подстрока Из ВсеПодстроки Цикл
                Если Подстрока.Позиция = вхПозиция И Подстрока.Наименование = вхНаименование Тогда
                    Подстрока[вхПараметрИмя] = вхЗначение;
                    Флаг = Истина;
                    Прервать;
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
        Если Флаг Тогда
            Прервать;
        КонецЕсли;
    КонецЦикла;


Наверное, не очень красиво получилось. Но зато работает. Потом ещё причещу...

Фёдор, спасибо за помощь!

(6)
Так ещё проще получилось:

    ТекДанные = ДеревоПК.НайтиПоИдентификатору(вхИД);
    ТекДанные[вхПараметрИмя] = вхЗначение;

Ещё раз спасибо!