tree控件展开是实例变量怎么控制失效了
枫叶冰澜 2017-04-27 08:48:54 long ll_Row,ll_gxbz,ll_ycxzsl,ll_gssl_t=0
For ll_Row = 1 To dw_jcbw_List.RowCount()
ll_gxbz = dw_jcbw_List.Object.selected[ll_Row]
if ll_gxbz = 1 then
ll_gssl ++
end if
Next
用ll_gssl ++控制选择的数量 但是控件里一更新就失效了
Long ll_jcbw[],i
String ls_jcbw
If NewHandle < 1 Then Return
GetItem(NewHandle,io_TreeItem)
This.is_CurItemName = io_TreeItem.Label
This.il_CurItemCode = io_TreeItem.Data
This.il_ItemHandle = NewHandle
If Not This.ib_CanWork Then Return
ls_jcbw += 'JCBWID='+String(This.il_CurItemCode)+' OR '
This.childrecursion(This.il_ItemHandle,False,ll_jcbw[])
For i = 1 To UpperBound(ll_jcbw[])
If ll_jcbw[i]=0 Then continue
ls_jcbw += 'JCBWID='+String(ll_jcbw[i])+' OR '
Next
If Len(ls_jcbw) > 0 Then ls_jcbw = Left(ls_jcbw,Len(ls_jcbw) - 4)
dw_jcbw_list.Setfilter(ls_jcbw)
dw_jcbw_list.Filter()
Return
求解?