折叠模式相关成员

折叠模式最常用的方法是ShowGridTree，前面已经介绍。

这一节介绍其他和折叠模相关的成员。

Table的相关成员有：

• CloseGridTree
  
  方法，用于关闭折叠模式，例如：Tables("表A").CloseGridTree()
  　
• ExpandGridTree
  
  方法，用于展开折叠模式指定级别的全部节点。例如展开所有一级节点：Tables("表A").ExpandGridTree(1)
  　
• GridTreeVisible
  
  逻辑型属性，用于判断Table是否处于折叠模式。

Row的相关成员有:

• Visible
  
  逻辑型属性，用于在折叠模式下，判断此行是否可见；在非折叠模式下，此属性始终返回True。
  　
• Hierarchy
  
  整数型属性，用于在折叠模式下，返回此行的层级，第一级为0；在非折叠模式下，此属性始终始终返回-1。
  　
• Collapsed
  
  逻辑型属性，用于在折叠模式下，返回或设置是否折叠此行。
  　
• NextSlibing
  
  Row类型，返回同一级别的下一行，如果没有，则返回Nothing。
  　
• PrevSlibing
  
  Row类型，返回同一级别的上一行，如果没有，则返回Nothing。
  　
• Parent
  
  Row类型，返回父行，如果没有，则返回Nothing。
  　
• HasChild
  
  逻辑型，如果有子行，则返回True，否则返回False
  　
• GetChildren
  
  这是一个方法，返回一个Row集合，默认包括所有直属下级行，如果要包括所有下级行，可见第一个参数设置为True
  　
• GetValue
  
  在折叠模式下返回分组行某列的实际显示值，出现此方法的原因参考:汇总值和原始值, 此方法的应用示例可以参考：Excel报表与折叠模式 编码导出折叠模式数据 

示例一

假定希望在折叠模式下，能避免误修改隐藏(被折叠)行的数据，可以将PrepareEdit事件代码设置为：

If e.Table.GridTreeVisible AndAlso e.Row.Visible = False
    e.Cancel = True
End If

示例二

设置折叠模式，并自动展开第一行：

Dim st As New LayerTreeSetting
st.PathCol = "级码"
st.Separator = "."
Tables("物料清单B").ShowGridTree(st)
Tables("物料清单B").Rows(0).Collapsed = False

示例三

在折叠模式下删除某个父行，并不会删除其子行。

如果你要删除某行的同时，同步除其所有子行，可以自己做个删除按钮，代码为：

Dim cr As Row = Tables("物料清单A").Current
If  Tables("物料清单A").GridTreeVisible Then
    Dim rs As List(of Row) = cr.GetChildren(True)
    For Each r As Row In rs
        r.Delete()
    Next
End If
cr.Delete()

示例四

如果某一行有子行，那就禁止删除此行，可以自己做个删除按钮，代码为：

Dim cr As Row = Tables("物料清单A").Current
If  Tables("物料清单A").GridTreeVisible Then
    If cr.HasChild()  Then
        MessageBox.show("此行有子行,无法删除!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)   
        Return
    End If
End If
cr.Delete()