ALV GRID中实现RadioButton单选按钮

ALV GRID中实现Checkbox复选框很简单，只需要将LVC_S_FCAT-CHECKBOX = 'X'即可，那么alv中radio Button单选怎么实现呢？

1、程序代码

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_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@'.
MODIFY gt_list FROM ls_list TRANSPORTING sel WHERE sel NE '@SR@'.
ls_list-sel = '@TB@'.
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 NE 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

复制代码

2、程序执行效果：

ALV GRID中实现RadioButton单选按钮相关推荐

将ALV GRID中改变的值更新到ALV内表中
首先编辑ALV的CALLER_EXIT事件,在call back的subroutine中做如下处理 CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPO ...
在alv grid中的列中设置icon图标
如果想输出红绿灯,其中红路灯那栏的头是不能改变text的,所以要是想自己个性化text就要改用icon输入红绿灯图标方法是在structure中添加一个field 为 char型 4位长. 然后在 ...
ALV GRID学习笔记----Double Click事件
10月底的时候进行了BC412课程的培训,课后自己做了一些实验,从今天开始就将这些实验记录下来,以便于以后需要使用的时候能够查询一下!(很遗憾的是公司组织了很多的培训,但是在实际工作中很少能够运到,所 ...
android多个单选按钮互斥使用,在android中使用RadioButton时，要想实现互斥
[搬运] http://www.cnblogs.com/wt616/archive/2011/06/20/2085531.html RadioButton和CheckBox的区别: 1.单个Radio ...
WPF的ListBox中的RadioButton不能单选问题
WPF不知道是微软故意弄的还是真的匆忙的推出的产品,在实际开发过程中有很多小问题解决很麻烦. 今天主要说一下ListBox中使用RadioButton的时候里面的RadioButton不能单选!居然成 ...
SAP SM37后台作业结果显示为alv list怎么样可以显示alv grid形式呢？
即使在ECC600版本中,后台作业结果也是无法以ALV Grid形式体现的. 在R/3版本中,甚至ALV的报表都无法后台运行.可能以后的版本会突破吧.
ABAP--如何在选择屏幕上输出ALV GRID报表
有些客户希望某些功能性的报表在输出报表内容时,能同时看到选择屏幕上的输入参数,并希望能反复地输入选择条件进行查询.实现这个功能的办法就是在选择屏幕上输出报表内容. 一般情况下,大家都是直接从SAP的 ...
抓取报表ALV GRID上的数据转于elliott
抓取报表ALV GRID上的数据在很多开发情况下,我们需要处理sap标准报表程序跑出的数据,很多人会想到内存的处理方法,但是得到的格式不如人意,在google了几天后终于找到了个例子,以下是本人实例 ...
html单选按钮for,HTML如何实现RadioButton单选按钮
用HTML来实现RadioButton,需要使用input标签,其中type指定为radio,接下来的文章我们就来说一说详细的内容. 我们先来看input标签的格式注:对于需要选中检索的值,可以利用 ...

ALV GRID中实现RadioButton单选按钮

ALV GRID中实现RadioButton单选按钮相关推荐

最新文章

热门文章