ALV输入数据后点回车自动将焦点置为下一行的该列

输入数据后，点回车，焦点自动换到下一行的该列

code

*&---------------------------------------------------------------------*
*& Report  ZLM_ALV_015
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZLM_ALV_015.

* Data Declration

TYPE-POOLS: SLIS.
*
TYPES: BEGIN OF TY_SFLIGHT.
INCLUDE TYPE SFLIGHT.
TYPES: BOX TYPE CHAR1,
       END  OF TY_SFLIGHT.
*
*
DATA: GT_SFLIGHT TYPE TABLE OF TY_SFLIGHT.
DATA: GS_LAYOUT  TYPE SLIS_LAYOUT_ALV.
DATA: LT_EVTS    TYPE SLIS_T_EVENT,
      LA_EVTS    LIKE LINE OF LT_EVTS.
*
DATA: GS_REPORT TYPE SY-CPROG,
      GS_TITLE  TYPE LVC_TITLE.

*
* Start of Selection
START-OF-SELECTION.
*
* Report
  GS_REPORT = SY-CPROG.
  GS_TITLE  = 'Move Cursor to next row by pressing Enter'.


*
* Selection.
  SELECT * FROM SFLIGHT
         INTO CORRESPONDING FIELDS OF TABLE GT_SFLIGHT UP TO 10 ROWS.

*
* Layout
  GS_LAYOUT-EDIT = 'X'.

*
* Event for Data Changed
  LA_EVTS-NAME = 'DATA_CHANGED'.
  LA_EVTS-FORM = 'GET_DATA_CHANGED'.
  APPEND LA_EVTS TO LT_EVTS.

*
* Call ABAP List Viewer (ALV)
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_GRID_TITLE       = GS_TITLE
      I_CALLBACK_PROGRAM = GS_REPORT
      I_STRUCTURE_NAME   = 'SFLIGHT'
      IS_LAYOUT          = GS_LAYOUT
      IT_EVENTS          = LT_EVTS
    TABLES
      T_OUTTAB           = GT_SFLIGHT.

*
*&---------------------------------------------------------------------*
*&      Form  get_data_changed
*&---------------------------------------------------------------------*
*       Here we will get the current cell and than add 1 to it to move
*         to next row. Than we will call the method to set the new row
*----------------------------------------------------------------------*
FORM GET_DATA_CHANGED USING RR_DATA_CHANGED
        TYPE REF TO CL_ALV_CHANGED_DATA_PROTOCOL.
*
  DATA: LO_GRID TYPE REF TO CL_GUI_ALV_GRID.
*
  DATA: LE_ROW     TYPE I,
        LE_VALUE   TYPE C,
        LE_COL     TYPE I,
        LES_ROW_ID TYPE LVC_S_ROW,
        LES_COL_ID TYPE LVC_S_COL,
        LES_ROW_NO TYPE LVC_S_ROID.

*
* Get the ALV Object reference
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = LO_GRID.

*
* Get the Current Cell
  CALL METHOD LO_GRID->GET_CURRENT_CELL
    IMPORTING
      E_ROW     = LE_ROW
      E_VALUE   = LE_VALUE
      E_COL     = LE_COL
      ES_ROW_ID = LES_ROW_ID
      ES_COL_ID = LES_COL_ID
      ES_ROW_NO = LES_ROW_NO.

*
* Set to the next cell
  DESCRIBE TABLE  GT_SFLIGHT LINES SY-INDEX.
  LES_ROW_ID-INDEX  = LES_ROW_ID-INDEX    1.
  LES_ROW_NO-ROW_ID = LES_ROW_NO-ROW_ID   1.
  IF LES_ROW_ID-INDEX LE SY-INDEX.
    CALL METHOD LO_GRID->SET_CURRENT_CELL_VIA_ID
      EXPORTING
        IS_ROW_ID    = LES_ROW_ID
        IS_COLUMN_ID = LES_COL_ID
        IS_ROW_NO    = LES_ROW_NO.
  ENDIF.

ENDFORM.                    "get_data_changed