TreeView对象选择某节点下所有节点与子节点

//////////////////////////////////////////////////////////////////////////////
//
// 函数: of_deselectall
//
// 属性: public
//
// 参数: long al_handle
//
// 返回: integer
//
// 功能:
// 如果是子节点,选择本级节点下的所有子节点~
//
//////////////////////////////////////////////////////////////////////////////

//声明
long            ll_hdl[]
long            ll_parent
long            ll_handle
integer         li_cnt
boolean         lb_result
treeviewitem    lt_tvi
string          label

li_cnt = 1
ll_hdl[1] = al_handle
if GetItem(ll_hdl[li_cnt], lt_tvi) = -1 then return -1
if not lt_tvi.children then
return 1
end if

do while li_cnt > 0
if GetItem(ll_hdl[li_cnt], lt_tvi) = -1 then return -1

//代码
//写判断

if lt_tvi.children then
  li_cnt ++
  ll_hdl[li_cnt] = FindItem(ChildTreeItem!, ll_hdl[li_cnt - 1])
else
    ll_hdl[li_cnt] = FindItem(NextTreeItem!, ll_hdl[li_cnt])
end if

do while ll_hdl[li_cnt] <= 0
  li_cnt --
    if li_cnt = 0 then exit
    ll_hdl[li_cnt] = FindItem(NextTreeItem!, ll_hdl[li_cnt])

    if ll_hdl[li_cnt] = -1 then CONTINUE

    lb_result = false
    ll_handle = ll_hdl[li_cnt]
    ll_parent = FindItem(ParentTreeItem!,ll_handle)
    DO UNTIL ll_parent = FindItem(RootTreeItem!, 0)
   if al_handle = ll_parent then
    lb_result = true
   end if
   ll_handle = ll_parent
   ll_parent = FindItem(ParentTreeItem!,ll_handle)
  loop

  if lb_result = true then
   CONTINUE
    else
   li_cnt = 0
   exit
  end if
loop
loop