获取Tree控件的所有Parent IndexLabel

st788796

1. (defun Odcl_Tree_GetAllParentItem (control / first lst)
   
2.   (setq first (dcl_Tree_GetRootItem control))
   
3.   (while (and first
   
4.               (setq lst (cons first lst))
   
5.               (setq first (dcl_tree_getnextsiblingitem control first))
   
6.          )
   
7.   )
   
8.   (reverse lst)
   
9. )

(defun Odcl_Tree_GetAllParentItem (control / first lst)<br />   (setq first (dcl_Tree_GetRootItem control))<br />   (while (and first<br />               (setq lst (cons first lst))<br />               (setq first (dcl_tree_getnextsiblingitem control first))<br />          )<br />   )<br />   (reverse lst)<br /> )