本文摘自: 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…
转自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.GetMast…