Гружу две таблицы в один тривью, делаю это в инит для актив х

вообще все это можно разложить в тастраде, там есть примерчик о применении дерева.

sele obekt1
set filt to otd=.t.
o = THISFORM.olecontrol1.Nodes
o.Clear
SCAN
THISFORM.cNextKey = ALLTRIM(STR(id) + "_")
IF isnull(id_id)
o.add(,1,ALLTRIM(str(id))+'_',ALLTRIM(name),0)
ELSE
o.add(ALLTRIM(str(id_id))+'_',4,ALLTRIM(str(id))+'_', ALLTRIM(name),0)
ENDIF

ENDSCAN
* susp
sele zadan
if pr#3
set filt to ob=pr.and.zz=.f.
else
set filt to zz=.f.
endif
*THISFORM.olecontrol1.font.size=11
SCAN
THISFORM.cNextKey = thisform.newkey()
o.add(ALLTRIM(str(ob))+'_',4,THISFORM.cNextKey, ALLTRIM(name),0)
repl sl with val(THISFORM.cNextKey)
ENDSCAN

Гружу две таблицы в один тривью, делаю это в инит для актив х

вообще все это можно разложить в тастраде, там есть примерчик о применении дерева.

sele obekt1
set filt to otd=.t.
o = THISFORM.olecontrol1.Nodes
o.Clear
SCAN
THISFORM.cNextKey = ALLTRIM(STR(id) + "_")
IF isnull(id_id)
o.add(,1,ALLTRIM(str(id))+'_',ALLTRIM(name),0)
ELSE
o.add(ALLTRIM(str(id_id))+'_',4,ALLTRIM(str(id))+'_', ALLTRIM(name),0)
ENDIF

ENDSCAN
* susp
sele zadan
if pr#3
set filt to ob=pr.and.zz=.f.
else
set filt to zz=.f.
endif
*THISFORM.olecontrol1.font.size=11
SCAN
THISFORM.cNextKey = thisform.newkey()
o.add(ALLTRIM(str(ob))+'_',4,THISFORM.cNextKey, ALLTRIM(name),0)
repl sl with val(THISFORM.cNextKey)
ENDSCAN

В моем примерчике:

таблица имеет два ключевых поля - id и id_id, а также поле с названием строкой - "name".

id, id_id - поля строковые, id - поле ключа, те 1,2,3,4,....
а поле id_id - ссылка на id_id , т.е подчиненное (вложенное), в этом основной прицип дерева...

опечатка, следует читать - ссылка на id