各位老师，请教个问题，学习贵论坛的一个关于treeviewde 贴子, 在这段代码里好像没有设置根目录，
This.LineStyle= 1  && tvwRootLines
This.Style= 7  && tvwTreelinesPlusMinusPictureText
This.ImageList=Thisform.Imagelist1   &&与Imagelist控件建立关联
*This.SingleSel=.t.
SELECT bm
SET DELETED ON
GO TOP
DO WHILE !EOF()
      This.Nodes.Add(,,ALLTRIM(bm.bmdm),ALLTRIM(bm.bm),1,3)
               
    SELECT wjmjs
   SET DELETED ON
   SET FILTER TO ALLTRIM(wjmjs.bmdm)==ALLTRIM(bm.bmdm)
   GO TOP

     DO WHILE !EOF()
     This.Nodes.Add(ALLTRIM(bm.bmdm),4,ALLTRIM(wjmjs.Key),ALLTRIM(wjmjs.lxr),3,3)     
 SKIP
   ENDDO

   SELECT bm
   SKIP
ENDDO
SELECT wjmjs
SET FILTER TO
GO TOP
SELECT bm
GO TOP
我如何在这段代码里加入根目录？如： .Nodes.Add(,,"Root","人员目录表",1)
  如何把人员目录表作为根目录，点其+或-，各部门能够伸缩呢？谢谢

谢谢泉城飞狐老师