Private Sub grdSQL_OnEdited(ByVal Node As DXDBGRIDLibCtl.IdxGridNode)
    If chkMove.Value Then
       'Отключаем перемещение в след. столбец при нажатии Enter
       grdSQL.Options.Set (egoEnterThrough)
       grdSQL.Options.Unset (egoEnterThrough)
       
                Move_CUR
    Else
     'Включаем перемещение в след. столбец при нажатии Enter
     grdSQL.Options.Set (egoEnterThrough)
     grdSQL.OptionEnabled = True
     
    End If
End Sub

Private Sub Move_CUR()
Dim Node As dxGridNode

With grdSQL
    If Not .M.IsGridMode Then  'Grid is in LoadAllRecords
      If .Count =  0  Then
        Exit Sub
      End If
      .Dataset.Next
      .SetFocus
      
    End If
End With
End Sub