|
做成了感觉也很简单的，代码如下，相信大家都能看明白吧。
*&---------------------------------------------------------------------*
*& 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'. | 
转播
