本文摘自: http://www.cnblogs.com/-ShiL/archive/2012/06/08/ShiL201206081335.html (一)双击展开,收缩字表 ExpandedChild Private Sub ExpandedChild(ByVal sender As DevExpress.XtraGrid.Views.Grid.GridView) '找出焦点行 Dim VIntPage As Integer = sender.FocusedRowHandle If send…