奇怪的GetFirstChildItem函数

yxp

鼓了好大的劲学习opendcl，各种奇怪的报错，让人抓狂。
GetFirstChildItem函数在第一个父目录下不能使用？这是神马缘故。
红色部分，用蓝色的替换才能通过，不是这个函数本身不行，
而是影响它的下一代的值无法传送，他自己的ID和name都返回无误。
麻烦热心人帮忙测试一下，看看是不是我的电脑有玛达。
还有一些控件的放置顺序如果不小心改变，也会报错，
用flag值跳过不加载都通不过，和setText函数有关的一个虫


;;主程序，添加一个模式窗口，存盘为 xxx.odcl
(defun c:xxx()
   (dcl_Project_Load "xxx.odcl")
   (dcl_Form_Show xxx_Form1)
   (dcl_Project_Unload "xxx")
   (princ)
)

;;添加一个textbutton按钮，增加单击事件，存盘
(defun c:xxx_Form1_TextButton1_OnClicked (/)
   (setq rootid  (dcl_Tree_GetRootItem xxx_Form1_TreeControl1))
   (princ "\nRootID :")(princ rootid)          ;;第一步：返回根ID
   
   (setq Parid1  (dcl_Tree_GetFirstChildItem xxx_Form1_TreeControl1 rootid))
  ; (setq Parid1  (dcl_Tree_GetFirstVisibleItem xxx_Form1_TreeControl1))
   (princ "\nParent ID1:")(princ Parid1)       ;;第二步：返回父ID
   
   (setq Parname1 (dcl_Tree_GetItemLabel xxx_Form1_TreeControl1 Parid1))
   (princ "\nParent name1:")(princ Parname1)   ;;第三步：返回父name
   
   (setq Childid1  (dcl_Tree_GetFirstChildItem xxx_Form1_TreeControl1 Parid1))
   (princ "\nChild ID1:")(princ Childid1)      ;;返回子ID
   
   (setq Childname1 (dcl_Tree_GetItemLabel xxx_Form1_TreeControl1 Childid1))
   (princ "\nChild name1:")(princ Childname1)
   
   (setq Grsonid1  (dcl_Tree_GetFirstChildItem xxx_Form1_TreeControl1 Childid1))
   (princ "\nGrson ID1:")(princ Grsonid1)     ;; 如果使用红色部分，这一步返回空值！！！
   (princ)   
)

;;添加一个TreeControl控件，增加OnInitialize事件，存盘
(defun c:xxx_Form1_OnInitialize (/)
  (setq p (dcl_Tree_AddParent xxx_Form1_TreeControl1 "FirstParent"))   ;;添加一个目录 1
  (setq q (dcl_Tree_AddChild xxx_Form1_TreeControl1 p "FirstChild"))   ;;添加目录 1.1
  (setq r (dcl_Tree_AddChild xxx_Form1_TreeControl1 q "FirstGrson"))   ;;添加1.1.1
  (setq p (dcl_Tree_AddParent xxx_Form1_TreeControl1 "SecondtParent")) ;;添加     2
  (dcl_Tree_AddChild xxx_Form1_TreeControl1 p "FirstChild")                  ;;添加     2.1
)