ALV 刷新实现(自动)

 做成了感觉也很简单的，代码如下，相信大家都能看明白吧。

*&---------------------------------------------------------------------*
*&      Form  user_command
*&---------------------------------------------------------------------*
*       事件响应
*----------------------------------------------------------------------*
FORM user_command USING rf_ucomm    LIKE sy-ucomm
                        rs_selfield TYPE slis_selfield.
  DATA: v_1st_c  TYPE c,
        v_answer TYPE c,
        v_strlen TYPE i,
        v_tips1  TYPE string,
        v_tips2  TYPE string.

  CASE rf_ucomm.
    WHEN '&NTE'. "刷新
      PERFORM alv_refresh CHANGING rs_selfield-col_stable
                                   rs_selfield-row_stable
                                   rs_selfield-refresh.
    ENDCASE.
  ENDCASE.
ENDFORM.                    "user_command   
 
 *&---------------------------------------------------------------------*
*&      Form  alv_refresh
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM alv_refresh  CHANGING po_col_stable  po_row_stable  po_refresh.

  PERFORM getdata.
  po_col_stable = 'X'.
  po_row_stable = 'X'.
  po_refresh = 'X'.

ENDFORM.                    " alv_refresh

 

在需要刷新的地方加上如下代码：

 set USER-COMMAND '&NTE'.