在CurrentCellChanged事件中!
Try
Dim Drv As DataRowView = CType(Me.BindingContext(datagrid1).Current, DataRowView)
Me.datagrid1.Select(Me.BindingContext(OnDutyDt).Position)
Me.button1.Focus()'把焦点移开看看!
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try