*&---------------------------------------------------------------------*
*& Form user_command
*&---------------------------------------------------------------------*
* 事件响应
*----------------------------------------------------------------------*
FORM user_command USING rf_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
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 _col_stable _row_stable _refresh.
_col_stable = 'X'.
_row_stable = 'X'.
_refresh = 'X'.
ENDFORM. " alv_refresh
在需要刷新的地方加上如下代码:
set USER-COMMAND '&NTE'.