应该先判断是不是空的
如果是空的可以先添加一个tvwfirst型的node, 例如叫做parent
否则添加tvwchild到parent

解决方案 »

  1.   

    应该先判断Txtcp.Text中的内容是不是合法,然后再判断treeview中有没有相同key的节点。因为treeview中的关键字不能相同,如果已有此节点,当然就报错了
      

  2.   

    怎样判断treeview中有没有相同key的节点。
      

  3.   

    采用for i=0 to trv.nodes.count-1
                   t=trv.nodes.key
              for j=0 to trv.nodes.count-1
                   if trv.nodes.key=t then
                       msbox "有相同值",vbinformation
                       exit sub
                   end if
              next
         next
      

  4.   

    for i=0 to trv.nodes.count-1
       if trv.nodes.item(i).key=Txtcp.Text then  '如果区分大小写,此处应加lcase或ucase函数
           msgbox "已经存在" & txtcp.text
           exit function
       endif
    next i如果你在数据库里有保存关键字的话,可以用sql直接到数据库里面查找是否有相同记录