方法如下： Protected Overrides Function ProcessCmdKey(ByRef aoMsg As Message, ByVal aoKey As Keys) As Boolean If Me.ActiveControl.GetType.Name.Equals(“DataGridViewTextBoxEditingControl”) Then If aoKey = Keys.Enter Then Dim EditControl As DataGridViewTextBoxEditingControl = Me.ActiveControl Dim dg As DataGridView = EditControl.EditingControlDataGridView dg.EndEdit() ‘自己控制单元格的位置 dg.CurrentCell = dg.Item(4, 
End If Else MyBase.ProcessCmdKey(aoMsg, aoKey) End If End Function
