急
增加布尔变量保存是否为整行选中
Option Explicit
Dim tempAll As Boolean
Private Sub MSHFlexGrid1_Click()
If Me.MSHFlexGrid1.MouseCol < Me.MSHFlexGrid1.FixedCols Then
tempAll = True 整行选中
Else
tempAll = False 未整行选中
End If
End Sub