Dim lngRowStar As Long, lngRowEnd As LongPrivate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) lngRowStar = MSFlexGrid1.Row End SubPrivate Sub MSFlexGrid1_SelChange() lngRowEnd = MSFlexGrid1.RowSel End Sub知道了启始行与结束行,进行操作就容易了!!
lngRowStar = MSFlexGrid1.Row
End SubPrivate Sub MSFlexGrid1_SelChange()
lngRowEnd = MSFlexGrid1.RowSel
End Sub知道了启始行与结束行,进行操作就容易了!!