老园丁，都90岁的人了，还在爬树，当心身子骨。
不急，只管把数据表发上来，让俺小园丁浇灌就是了！

楼主的树模式和我的差不多。我这里有个职工档案的树结构，复制给你参考一下：
SELECT DISTINCT unit FROM archives WHERE !EMPTY(ALLTRIM(unit)) INTO CURSOR temp1
SELECT temp1
GO TOP
WITH THISFORM.treeview
    yy=.nodes.ADD(,,"song","总公司")
    yy.expanded=.T.
    yy.bold=.T.
    SCAN
        .nodes.ADD("song",4,"unit"+ALLTRIM(unit),ALLTRIM(unit))
        SELECT kqid,NAME FROM archives WHERE ALLTRIM(archives.unit)=ALLTRIM(temp1.unit) AND !EMPTY(ALLTRIM(archives.NAME)) INTO CURSOR temp2
        IF _TALLY>0
            SELECT temp2
            GO TOP
            SCAN
                .nodes.ADD("unit"+ALLTRIM(temp1.unit),4,"name"+alltrim(str(kqid))+alltrim(temp2.name),ALLTRIM(temp2.NAME))
            ENDSCAN
        ENDIF        
        SELECT temp1
    ENDSCAN
ENDWITH

谢谢上面的高手告诉。太感激你们了

搂主，如果认为获得了比较满意的答案，请给回帖者评分。

楼上兄台，好久没有上网了，实在抱歉，不知道如何评分！