[REUSE_ALV_GRID_DISPLAY_LVC]-显示单选按钮(radio button)详解编程语言

REPORT ztest_alv_radiobutton. 
TYPE-POOLS:abap, slis. 
DATA: BEGIN OF gt_list OCCURS 0, 
sel TYPE char4, 
val TYPE i, 
END OF gt_list. 
DATA: go_alv_grid TYPE REF TO cl_gui_alv_grid. 
*&---------------------------------------------------------------------* 
*& CLASS LCL_EVENT_RECEIVER DEFINITION 
*&---------------------------------------------------------------------* 
CLASS lcl_event_receiver DEFINITION. 
PUBLIC SECTION. 
CLASS-METHODS: 
*     hotspot事件 
      hotspot_click 
FOR EVENT hotspot_click OF cl_gui_alv_grid 
IMPORTING e_row_id 
e_column_id 
es_row_no. 
ENDCLASS.                    "LCL_EVENT_RECEIVER DEFINITION 
*&---------------------------------------------------------------------* 
*& CLASS LCL_EVENT_RECEIVER DEFINITION 
*&---------------------------------------------------------------------* 
CLASS lcl_event_receiver IMPLEMENTATION. 
METHOD hotspot_click. 
DATA: ls_list LIKE gt_list. 
CLEAR ls_list. 
READ TABLE gt_list INTO ls_list INDEX e_row_id. 
IF gt_list-sel NE '@TB@'. 
ls_list-sel = '@SR@'."radio button选中的图标 
MODIFY gt_list FROM ls_list TRANSPORTING sel WHERE sel NE '@SR@'. 
ls_list-sel = '@TB@'."没有选中radio button的图标 
MODIFY gt_list FROM ls_list INDEX e_row_id TRANSPORTING sel . 
ENDIF. 
PERFORM frm_ref_alv. 
ENDMETHOD.                    "HANDLE_ONF4 
ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION 
*&---------------------------------------------------------------------* 
*&      START-OF-SELECTION 
*&---------------------------------------------------------------------* 
START-OF-SELECTION. 
PERFORM frm_get_data. 
PERFORM frm_dsp_data. 
*&---------------------------------------------------------------------* 
*&      Form  FRM_GET_DATA 
*&---------------------------------------------------------------------* 
FORM frm_get_data . 
DO 10 TIMES. 
IF sy-index = 1. 
gt_list-sel = '@TB@'. 
ELSE. 
gt_list-sel = '@SR@'. 
ENDIF. 
gt_list-val = sy-index. 
APPEND gt_list. 
ENDDO. 
ENDFORM.                    " FRM_GET_DATA 
*&---------------------------------------------------------------------* 
*&      Form  FRM_DSP_DATA 
*&---------------------------------------------------------------------* 
FORM frm_dsp_data . 
DATA: ls_layo  TYPE lvc_s_layo, 
lt_fcat  TYPE lvc_t_fcat, 
ls_fcat  TYPE lvc_s_fcat, 
lt_event TYPE slis_t_event, 
ls_event TYPE slis_alv_event. 
ls_layo-zebra      = abap_true. 
ls_layo-cwidth_opt = abap_true. 
ls_fcat-fieldname = 'SEL'. 
ls_fcat-hotspot = 'X'. 
ls_fcat-scrtext_l = 
ls_fcat-scrtext_m = 
ls_fcat-scrtext_s = '选择'. 
APPEND ls_fcat TO lt_fcat. 
CLEAR ls_fcat. 
ls_fcat-fieldname = 'VAL'. 
ls_fcat-scrtext_l = 
ls_fcat-scrtext_m = 
ls_fcat-scrtext_s = '值'. 
APPEND ls_fcat TO lt_fcat. 
CLEAR ls_fcat. 
ls_event-name = slis_ev_caller_exit_at_start. 
ls_event-form = slis_ev_caller_exit_at_start. 
APPEND ls_event TO lt_event. 
* 显示alv列表 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' 
EXPORTING 
i_callback_program = sy-repid 
is_layout_lvc      = ls_layo 
it_fieldcat_lvc    = lt_fcat 
i_save             = 'A' 
it_events          = lt_event 
TABLES 
t_outtab           = gt_list 
EXCEPTIONS 
program_error      = 1 
OTHERS             = 2. 
IF sy-subrc <> 0. 
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
ENDIF. 
ENDFORM.                    " FRM_DSP_DATA 
*&---------------------------------------------------------------------* 
*&      Form  CALLER_EXIT 
*&---------------------------------------------------------------------* 
FORM caller_exit USING u_exit TYPE slis_data_caller_exit. 
DATA: ls_f4 TYPE lvc_s_f4, 
lt_f4 TYPE lvc_t_f4. 
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' 
IMPORTING 
e_grid = go_alv_grid. 
* 设置回车事件 
CALL METHOD go_alv_grid->register_edit_event 
EXPORTING 
i_event_id = cl_gui_alv_grid=>mc_evt_enter 
EXCEPTIONS 
error      = 1 
OTHERS     = 2. 
* 设置光标焦点移开被修改单元格后触发事件 
CALL METHOD go_alv_grid->register_edit_event 
EXPORTING 
i_event_id = cl_gui_alv_grid=>mc_evt_modified 
EXCEPTIONS 
error      = 1 
OTHERS     = 2. 
SET HANDLER lcl_event_receiver=>hotspot_click FOR go_alv_grid. 
ENDFORM.                    "CALLER_EXIT 
*&---------------------------------------------------------------------* 
*&      Form  FRM_REF_ALV 
*&---------------------------------------------------------------------* 
FORM frm_ref_alv . 
DATA ls_stbl TYPE lvc_s_stbl. 
ls_stbl-row = abap_true. 
ls_stbl-col = abap_true. 
CALL METHOD go_alv_grid->refresh_table_display 
EXPORTING 
is_stable = ls_stbl. 
ENDFORM.                    " FRM_REF_ALV