PB遍历递归树结构

      在日常编程中，常常需要对树进行遍历，下面是一个pb递归遍历树的例子，仅供学习参考。

     

    

     long ll_tvi

      ll_tvi = tv_2.finditem( roottreeitem!, 0)    //找到根节点

      tv_2.expandall( ll_tvi)   //展开树形结构，必须先展开

      wf_tree_right(ll_tvi)     //开始遍历

/************************** wf_tree_right()************/

//输入参数： long as_tree

/*****************************************************/
long    ll_handle
treeviewitem ltvi_temp
string ls_menuID,ls_menuValue//菜单ID、菜单名称

long ll_PictureIndex,ll_SelectedPictureIndex

ll_Handle   =   tv_2.finditem(ChildTreeItem!,as_tree)

do   while   ll_Handle   <>   -1

     //可以写自己的一些代码
       tv_2.Getitem(ll_Handle,ltvi_temp)

       ls_menuID = trim(ltvi_temp.data)
       ls_menuValue = trim(ltvi_temp.label)
       ll_PictureIndex = ltvi_temp.PictureIndex
       ll_SelectedPictureIndex = ltvi_temp.SelectedPictureIndex

        wf_tree_right(ll_Handle)
     ll_Handle   =   tv_2.finditem(NextTreeItem!,ll_handle)
loop