想请教一下，为何每次点击MSHflexgrid，.MouseRow的值都是一样的？

Question

ReDim a(Me.MSHFlexGrid1.Rows) As Boolean
Private Sub MSHFlexGrid1_Click()
      With Me.MSHFlexGrid1        
        If .MouseRow <> 0 And .MouseRow <> .Rows - 1 Then    //调试的时候，为何每次点击执行这个事件的时候，不论鼠标点在哪儿.MouseRow显示的结果都是2?
           .RowData(.MouseRow) = Not .RowData(.MouseRow)
            .Col = 1
           If .RowData(.MouseRow) Then
                Set .CellPicture = Me.Picture1.Picture
                a(.MouseRow) = True
           Else
                Set .CellPicture = Me.Picture2.Picture
                a(.MouseRow) = False
            End If
        End If
    End With    
End Sub

Answer 1

使用row属性而不是mouserow属性。

Answer 2

点在单格里，应该无楼主说的情况。另外建议楼主给你的vb6打sp6补丁。