通过事件控制实现ALV复选框只能单选

1、程序代码：

TYPE-POOLS slis.
DATA: BEGIN OF gt_list OCCURS 0,
sel TYPE char4,
val TYPE i,
style TYPE lvc_t_styl,
END OF gt_list.
DATA: gs_styl TYPE lvc_s_styl,
gs_scol TYPE lvc_s_scol.
DEFINE mcr_fill_styl.
GS_STYL-FIELDNAME = &1.
GS_STYL-STYLE = &2.
INSERT GS_STYL INTO TABLE GT_LIST-STYLE.
CLEAR GS_STYL.
END-OF-DEFINITION.
DATA: go_ALV_grid TYPE REF TO cl_gui_alv_grid.
*&---------------------------------------------------------------------*
*& START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM frm_get_data.
PERFORM frm_dsp_data.
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
FORM frm_get_data .
DATA: lv_index TYPE i.
DO 3 TIMES.
lv_index = sy-index.
DO sy-index * 2 TIMES.
IF sy-index NE 1.
mcr_fill_styl: 'SEL' cl_gui_alv_grid=>mc_style_disabled.
ELSE.
mcr_fill_styl: 'SEL' cl_gui_alv_grid=>mc_style_enabled.
ENDIF.
gt_list-val = lv_index.
APPEND gt_list.
CLEAR gt_list.
ENDDO.
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_layo-stylefname = 'STYLE'.
ls_fcat-fieldname = 'SEL'.
ls_fcat-checkbox = 'X'.
ls_fcat-edit = '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.
ls_event-name = slis_ev_data_changed.
ls_event-form = slis_ev_data_changed.
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.
ENDFORM. "CALLER_EXIT
*&---------------------------------------------------------------------*
*& Form DATA_CHANGED
*&---------------------------------------------------------------------*
* 数据改变检查
*----------------------------------------------------------------------*
FORM data_changed USING or_data_changed TYPE REF TO cl_alv_changed_data_protocol.
DATA: ls_mod_cells TYPE lvc_s_modi.
FIELD-SYMBOLS: <fs_line> LIKE gt_list,
<fs_value> TYPE any.
LOOP AT or_data_changed->mt_good_cells INTO ls_mod_cells.
CLEAR gt_list.
READ TABLE gt_list ASSIGNING <fs_line> INDEX ls_mod_cells-row_id.
IF sy-subrc EQ 0.
ASSIGN COMPONENT ls_mod_cells-fieldname OF STRUCTURE <fs_line> TO <fs_value>.
IF sy-subrc EQ 0.
CALL METHOD or_data_changed->get_cell_value
EXPORTING
i_row_id = ls_mod_cells-row_id
i_fieldname = ls_mod_cells-fieldname
IMPORTING
e_value = <fs_value>.
ENDIF.
ENDIF.
CASE ls_mod_cells-fieldname.
WHEN 'SEL'.
gt_list-sel = ''.
MODIFY gt_list TRANSPORTING sel WHERE sel IS NOT INITIAL.
LOOP AT gt_list
WHERE val EQ <fs_line>-val .
gt_list-sel = 'X'.
MODIFY gt_list TRANSPORTING sel.
ENDLOOP.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
PERFORM frm_ref_alv.
ENDFORM. " DATA_CHANGED
*&---------------------------------------------------------------------*
*& 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

复制代码

2、程序效果：

ls_fcat-checkbox = 'X'. 这是关键

[ooalv] 通过事件控制实现ALV复选框只能单选

相关帖子

Ta最近发表

快速回帖