DevExpress GridView属性说明

转自http://www.cnblogs.com/-ShiL/archive/2012/06/08/ShiL201206081335.html

（一）双击展开，收缩字表

1 Private Sub ExpandedChild(ByVal sender As DevExpress.XtraGrid.Views.Grid.GridView)
2 '找出焦点行
3 Dim VIntPage As Integer = sender.FocusedRowHandle
4 If sender.GetMasterRowExpanded(VIntPage) Then
5 sender.CollapseMasterRow(VIntPage)
6 Else
7 sender.ExpandMasterRow(VIntPage)
8 End If
9 End Sub