分类汇总的的折叠可以用代码一次性折叠或者展开吗

微信用户_62

分类汇总的的折叠可以用代码一次性折叠或者展开吗

admin

Dim tbl As BaseGrid=Proj.CurrentGrid
'展开节点的层级，序号从0开始算起
Dim intShowLevel As Integer=1
If intShowLevel >= 0 AndAlso tbl.Tree IsNot Nothing AndAlso tbl.Tree.MaximumLevel >= intShowLevel Then
        For i As Integer = tbl.Tree.MaximumLevel To intShowLevel Step -1
                tbl.Tree.Show(i)
        Next
End If

'下个版本可以直接使用下面的方法
'tbl.ExpandToLevel(1)
复制代码

admin

如果只是定位，并不希望将所有更深层的结点收缩起来的话，可以直接使用

Dim tbl As BaseGrid=Proj.CurrentGrid
tbl.Tree.Show(1)