Проще хранить данные в таблице/курсоре и там с ними работать. А дерево использовать только для отображения данных.
Так обработка будет значительно быстрее и дерево при открытии можно будет не наполнять целиком, а подгружать нужные ветки при их открытии.

PS Имена переменных начинать с подчеркивания не советую, т.к. в фоксе есть набор служебных переменных и все они начинаются с подчеркивания.

Marina N.Dima T,

можно попробовать так:

* Создаем временный курсор для хранения все вершин дерева
* естественно, типы и размерность полей - какие вам нужны

CREATE CURSOR FullTree (NodeKey C(10), ParentNodeKey C(10), NodeText CHAR(50))

* заполняем этот курсор (если надо, применяем ALLTRIM, UPPER, LOWER и т.п.)

FOR i = 1 TO ThisForm.TreeKladr.Nodes.Count
INSERT INTO FullTree VALUES(ThisForm.TreeKladr.Nodes(i).Key, ;
ThisForm.TreeKladr.Nodes(i).Parent.Key, ThisForm.TreeKladr.Nodes(i).Text)
ENDFOR
...
Можно по всякому попробовать, например проделать это с деревом в 5-10 тысяч узлов и потом объяснять юзеру что тормоза из-за того что справочник у него сильно большой. Кроме того дерево должно быть предварительно заполнено целиком, что еще медленнее будет чем этот код.

Чтобы тормозов не было - дерево должно только отображать данные. Самый быстрый способ такой: при старте показывается только узлы первого уровня, при попытке пользователем открыть узел - добавляются только его дочерние узлы. Крайне редко пользователю надо видеть все дерево в развернутом виде, а при таком подходе получается что реально в дереве 100-200 узлов.
И не надо назначать дерево "передастом", т.е. сначала писать туда а потом читать из него, гораздо быстрее прочитать напрямую из базы.

Marina N.С чего Вы взяли, что там вообще есть для этого таблица?
Даже если ее нет, то можно создать курсор вместо изначального наполнения дерева.
Marina N.И почему это дерево обязательно большое?
Даниэль...
_cnt = _Node.Children && количество детей, (в тестовом варианте дает 180 детей)
...
Думаю немаленькое если у одного узла 180 дочерних.

PS Топикстартер за 3 дня не объявился, наверно уже решил свою проблему по принципу "лишь бы работало".
PPS По собственному опыту могу сказать что написанное по принципу "лишь бы работало" через некоторое время приводит к тому приходится это место переписывать с нуля и зачастую править код связанный с этим.