ALV GRID中实现RadioButton单选按钮

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

1、程序代码

1. TYPE-POOLS:abap, slis.
   
2. 
   
3. DATA: BEGIN OF gt_list OCCURS 0,
   
4.         sel TYPE char4,
   
5.         val TYPE i,
   
6.       END OF gt_list.
   
7. 
   
8. DATA: go_alv_grid TYPE REF TO cl_gui_alv_grid.
   
9. *&---------------------------------------------------------------------*
   
10. *& CLASS LCL_EVENT_RECEIVER DEFINITION
    
11. *&---------------------------------------------------------------------*
    
12. CLASS lcl_event_receiver DEFINITION.
    
13.   PUBLIC SECTION.
    
14.     CLASS-METHODS:
    
15.       hotspot_click
    
16.         FOR EVENT hotspot_click OF cl_gui_alv_grid
    
17.           IMPORTING e_row_id
    
18.                     e_column_id
    
19.                     es_row_no.
    
20. ENDCLASS.                    "LCL_EVENT_RECEIVER DEFINITION
    
21. *&---------------------------------------------------------------------*
    
22. *& CLASS LCL_EVENT_RECEIVER DEFINITION
    
23. *&---------------------------------------------------------------------*
    
24. CLASS lcl_event_receiver IMPLEMENTATION.
    
25.   METHOD hotspot_click.
    
26.     DATA: ls_list LIKE gt_list.
    
27.     CLEAR ls_list.
    
28.     READ TABLE gt_list INTO ls_list INDEX e_row_id.
    
29.     IF gt_list-sel NE '@TB@'.
    
30.       ls_list-sel = '@SR@'.
    
31.       MODIFY gt_list FROM ls_list TRANSPORTING sel WHERE sel NE '@SR@'.
    
32.       ls_list-sel = '@TB@'.
    
33.       MODIFY gt_list FROM ls_list INDEX e_row_id TRANSPORTING sel .
    
34.     ENDIF.
    
35.     PERFORM frm_ref_alv.
    
36.   ENDMETHOD.                    "HANDLE_ONF4
    
37. ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION
    
38. *&---------------------------------------------------------------------*
    
39. *&      START-OF-SELECTION
    
40. *&---------------------------------------------------------------------*
    
41. START-OF-SELECTION.
    
42.   PERFORM frm_get_data.
    
43.   PERFORM frm_dsp_data.
    
44. *&---------------------------------------------------------------------*
    
45. *&      Form  FRM_GET_DATA
    
46. *&---------------------------------------------------------------------*
    
47. FORM frm_get_data .
    
48.   DO 10 TIMES.
    
49.     IF sy-index = 1.
    
50.       gt_list-sel = '@TB@'.
    
51.     ELSE.
    
52.       gt_list-sel = '@SR@'.
    
53.     ENDIF.
    
54.     gt_list-val = sy-index.
    
55.     APPEND gt_list.
    
56.   ENDDO.
    
57. ENDFORM.                    " FRM_GET_DATA
    
58. *&---------------------------------------------------------------------*
    
59. *&      Form  FRM_DSP_DATA
    
60. *&---------------------------------------------------------------------*
    
61. FORM frm_dsp_data .
    
62.   DATA: ls_layo  TYPE lvc_s_layo,
    
63.         lt_fcat  TYPE lvc_t_fcat,
    
64.         ls_fcat  TYPE lvc_s_fcat,
    
65.         lt_event TYPE slis_t_event,
    
66.         ls_event TYPE slis_alv_event.
    
67.   ls_layo-zebra      = abap_true.
    
68.   ls_layo-cwidth_opt = abap_true.
    
69.   ls_fcat-fieldname = 'SEL'.
    
70.   ls_fcat-hotspot = 'X'.
    
71.   ls_fcat-scrtext_l =
    
72.   ls_fcat-scrtext_m =
    
73.   ls_fcat-scrtext_s = '选择'.
    
74.   APPEND ls_fcat TO lt_fcat.
    
75.   CLEAR ls_fcat.
    
76.   ls_fcat-fieldname = 'VAL'.
    
77.   ls_fcat-scrtext_l =
    
78.   ls_fcat-scrtext_m =
    
79.   ls_fcat-scrtext_s = '值'.
    
80.   APPEND ls_fcat TO lt_fcat.
    
81.   CLEAR ls_fcat.
    
82.   ls_event-name = slis_ev_caller_exit_at_start.
    
83.   ls_event-form = slis_ev_caller_exit_at_start.
    
84.   APPEND ls_event TO lt_event.
    
85. * 显示alv列表
    
86.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    
87.     EXPORTING
    
88.       i_callback_program = sy-repid
    
89.       is_layout_lvc      = ls_layo
    
90.       it_fieldcat_lvc    = lt_fcat
    
91.       i_save             = 'A'
    
92.       it_events          = lt_event
    
93.     TABLES
    
94.       t_outtab           = gt_list
    
95.     EXCEPTIONS
    
96.       program_error      = 1
    
97.       OTHERS             = 2.
    
98.   IF sy-subrc NE 0.
    
99.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
100.           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     
101.   ENDIF.
     
102. ENDFORM.                    " FRM_DSP_DATA
     
103. *&---------------------------------------------------------------------*
     
104. *&      Form  CALLER_EXIT
     
105. *&---------------------------------------------------------------------*
     
106. FORM caller_exit USING u_exit TYPE slis_data_caller_exit.
     
107.   DATA: ls_f4 TYPE lvc_s_f4,
     
108.         lt_f4 TYPE lvc_t_f4.
     
109.   CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
     
110.     IMPORTING
     
111.       e_grid = go_alv_grid.
     
112. * 设置回车事件
     
113.   CALL METHOD go_alv_grid->register_edit_event
     
114.     EXPORTING
     
115.       i_event_id = cl_gui_alv_grid=>mc_evt_enter
     
116.     EXCEPTIONS
     
117.       error      = 1
     
118.       OTHERS     = 2.
     
119. * 设置光标焦点移开被修改单元格后触发事件
     
120.   CALL METHOD go_alv_grid->register_edit_event
     
121.     EXPORTING
     
122.       i_event_id = cl_gui_alv_grid=>mc_evt_modified
     
123.     EXCEPTIONS
     
124.       error      = 1
     
125.       OTHERS     = 2.
     
126.   SET HANDLER lcl_event_receiver=>hotspot_click FOR go_alv_grid.
     
127. ENDFORM.                    "CALLER_EXIT
     
128. *&---------------------------------------------------------------------*
     
129. *&      Form  FRM_REF_ALV
     
130. *&---------------------------------------------------------------------*
     
131. FORM frm_ref_alv .
     
132.   DATA ls_stbl TYPE lvc_s_stbl.
     
133.   ls_stbl-row = abap_true.
     
134.   ls_stbl-col = abap_true.
     
135.   CALL METHOD go_alv_grid->refresh_table_display
     
136.     EXPORTING
     
137.       is_stable = ls_stbl.
     
138. ENDFORM.                    " FRM_REF_ALV

复制代码

2、程序执行效果：

受教了，感谢lz

居然还可以选择，收藏了。