如上图，当打开窗体时，自动定位在MSFlexGrid1第一行第一列，当下移键时，选定行自动跟随下移（2002年的第一场雪）。

随便在选定的某一行回车键时，跳到MSFlexGrid2的第一行第一列获得焦点，并能同时计算出各数值以便调用。


Private Sub MSF1_KeyPress(KeyAscii As Integer)
MSF2.Row = 1 '起始行单元
MSF2.Col = 0 '起始列单元
MSF2.SelectionMode = flexSelectionByRow '整行选择
End Sub

Private Sub MSF2_KeyPress(KeyAscii As Integer)

End Sub

我想用2次回车键时，能从MSFlexGrid1跳到MSFlexGrid2里，如何修改并实现？

[此贴子已经被作者于2007-8-7 21:41:49编辑过]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo errForm_KeyDown

Call gsbFrmKeyDown(KeyCode, Shift)

exitForm_KeyDown:
Exit Sub

errForm_KeyDown:
Resume exitForm_KeyDown

End Sub

Public Sub gsbFrmKeyDown(myKeyCode As Integer, Shift As Integer)
On Error GoTo errgsbFrmKeyDown

Select Case myKeyCode
Case vbKeyReturn
SendKeys "{TAB}", True'你设置两个MSFlexGrid的TABINDEX相连
End Select

extgsbFrmKeyDown:
Exit Sub

errgsbFrmKeyDown:
Resume extgsbFrmKeyDown

End Sub

计算问题,你自己在MSFlexGrid的GotFocus和LostFocus事件中写吧,我就不具体写拉

那东西的确很好用

抓form的keydown事件 的确很好!