MSHFlexGrid问题？

Question

Private Sub MSHFlexGrid1_Click()
    rs.AbsolutePosition = MSHFlexGrid1.Row
End Sub
以上是点击MSHFlexGrid行得到是那条数据
但我用键盘的上下箭头键移动MSHFlexGrid行时，怎么得到是那条数据？

Answer 1

可以在KeyPress事件中加入Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
    Dim intOldRow As Integer, intOldCol As Integer
    '保存当前行和列
    intOldRow = MSFlexGrid1.Row
    intOldCol = MSFlexGrid1.Col
End Sub

Answer 2

MSFlexGrid的KeyPress事件不响应上下箭头键啊,怎么办？

Answer 3

在KeyDown事件里加啊：
Private Sub MSHFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 38 Or KeyCode = 40 Then
      rs.AbsolutePosition = MSHFlexGrid1.Row
   End If
End Sub