分享一下,树形数据窗口双击那一层自动展开或收缩(数据窗口DoubleClicked事件中处理)

分享一下,树形数据窗口双击那一层自动展开或收缩(数据窗口DoubleClicked事件中处理)
//TreeView Datawindow 双击收缩
//双击那一层对象则自带收缩(不用去点 + / - )


string ls_dwProcessing,ls_band
//树型dw的展开收缩处理
ls_dwProcessing=this.describe('DataWindow.Processing')
If ls_dwProcessing='8'  or ls_dwProcessing='9' Then
    ls_band=this.describe(dwo.Name+".band")
    //tree.level.1
    //n_cst_string 
    If pos(ls_band,'tree.level.') >0 Then
        n_cst_string  lstr_c
        string ls_parstr[],ls_bandrow[]
        int li_level
long ll_row
        lstr_c.of_parsetoarray(ls_band,'.',ls_parstr)//PFC 对象 把字串 分配成数组（也可以自行写）
        If upperbound(ls_parstr[])>=3 Then
            If isnumber(ls_parstr[3])Then
                li_level=integer(ls_parstr[3])
                //describe("evaluate(' first( getrow() for group 1 )',"+string(getrow())+")")
                //describe("evaluate(' first( getrow() for group 1 )',"+first( getrow() for group 1 )+")")
                //ll_row= this.getrow()//long(describe("evaluate(' first( getrow() for group "+string(li_level)+" )',compute_3)"))
                //取双击的所在 band 的行
                ls_band=GetBandAtPointer()
                lstr_c.of_parsetoarray(ls_band,'~t',ls_bandrow)
                If upperbound(ls_bandrow[])>=2 Then 
                    ll_row=long(ls_bandrow[2])
                    If ll_row=0 Then ll_row= this.getrow()
                Else
                    ll_row= this.getrow()
                End If
                If this.isexpanded( ll_row, li_level) Then 
                    this.CollapseAllChildren(ll_row,li_level)
                    //this.CollapseAll()
                Else
                    this.ExpandAllChildren(ll_row,li_level)
                    //this.ExpandAll()
                End If
                
            End If
        End If
    End If

End If