想做一个3级树结构，在添加第三级节点时候报错
第一级是序号，第二级是姓名，第三级是联系人
这个代码运行的时候报错 element not found..

This.LineStyle= 1  && tvwRootLines
This.Style= 7  && tvwTreelinesPlusMinusPictureText
This.ImageList=Thisform.Imagelist1   &&与Imagelist控件建立关联
sele xuhao
replace ALL 项目编号 with"B"+ALLTRIM(STR(RECNO()))
replace ALL key with"C"+ALLTRIM(STR(RECNO()))
replace ALL key2 with"D"+ALLTRIM(STR(RECNO()))
replace ALL key3 with"E"+ALLTRIM(STR(RECNO()))
sele xuhao1
replace ALL 项目编号 with"B"+ALLTRIM(STR(RECNO()))
replace ALL key with"C"+ALLTRIM(STR(RECNO()))
replace ALL key2 with"D"+ALLTRIM(STR(RECNO()))
replace ALL key3 with"E"+ALLTRIM(STR(RECNO()))




SELECT xuhao
SET DELETED ON
GO TOP
DO WHILE !EOF()
   &&添加部门节点，以唯一的部门编号字段作为控件的Key
   This.Nodes.Add(,,ALLTRIM(xuhao.项目编号),;
               ALLTRIM(xuhao.序号),1,2)
               
  *（ 属于，子节点，名称，标题）节点的名称就用编号，子节点的属于就用节点的名称，就是部门编号。

   SELECT xuhao1
   SET DELETED ON
   SET FILTER TO ALLTRIM(xuhao1.项目编号)=;
                ALLTRIM(xuhao.项目编号)
   GO TOP

   &&添加部门中人员节点，以唯一的Key字段值作为控件的Key
   DO WHILE !EOF()
      This.Nodes.Add(ALLTRIM(xuhao.项目编号),4,;
                 ALLTRIM(xuhao1.Key),ALLTRIM(xuhao1.姓名),3,3)
      SKIP




      
  *****treeview 第三级begin  修改这部分  
         SELECT xuhao2
   SET DELETED ON
   SET FILTER TO ALLTRIM(xuhao2.key2)=;
                ALLTRIM(xuhao1.key2)
   GO TOP

   &&添加部门中人员节点，以唯一的Key字段值作为控件的Key
   DO WHILE !EOF()
      This.Nodes.Add(ALLTRIM(xuhao1.key2),4,;
                 ALLTRIM(xuhao2.Key3),ALLTRIM(xuhao2.联系人),3,3)
      SKIP
   ENDDO
  *****treeview 第三级end   
      
      
      
   ENDDO

   SELECT xuhao
   SKIP
ENDDO
SELECT xuhao1
SET FILTER TO
GO TOP
SELECT xuhao2
GO TOP


拜谢！