1,451
社区成员
发帖
与我相关
我的任务
分享
Case vbKeyReturn
mshflexgrid.SetFocus
DoEvents
If mshflexgrid.Col >= mshflexgrid.Cols - 1 Then
If mshflexgrid.Row < mshflexgrid.Rows - 1 Then
mshflexgrid.Row = mshflexgrid.Row + 1
mshflexgrid.Col = mshflexgrid.FixedCols
End If
Else
mshflexgrid.Col = mshflexgrid.Col + 1
End If
Case vbKeyDown
mshflexgrid.SetFocus
DoEvents
If mshflexgrid.Row < mshflexgrid.Rows - 1 Then
mshflexgrid.Row = mshflexgrid.Row + 1
End If