1、定义复选框
REPORT ztest_sum.TABLES:mara,syst.PARAMETER p_box AS CHECKBOX USER-COMMAND comm1. "comm1是事件代码，控制语句at selection-screen.或者 start-of-selection过程捕获该单击事件AT SELECTION-SCREEN. IF sy-ucomm = 'COMM1'. MESSAGE i001(00) WITH '单击复选框'. ENDIF.
2、定义单选按钮，同样可以加user-command comm1事件代码
REPORT ztest_sum.TABLES:mara,syst.PARAMETER: p_rad1 radiobutton group g1 user-command comm1, p_rad2 radiobutton group g1.AT SELECTION-SCREEN. IF sy-ucomm = 'COMM1'. MESSAGE i001(00) WITH '单击复选框'. ENDIF.
3.创建下拉列表
REPORT ztest_sum.TABLES:mara,syst.PARAMETER:p_lang(20) AS LISTBOX VISIBLE LENGTH 22. "顶一个下拉列表对象AT SELECTION-SCREEN. IF sy-ucomm = 'COMM1'. MESSAGE i001(00) WITH '单击复选框'. ENDIF. PERFORM setlist.*&---------------------------------------------------------------------**& Form setlist*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM setlist . TYPE-POOLS vrm. "引用字典对象TYPE-POOLS vrm用于保存列表对象 DATA values TYPE vrm_values WITH HEADER LINE.*对内表加载值，key为关键字也是列表回执的值，text为描述 values-key = 'CHINESE'. values-text = '中国人'. APPEND values. values-key = 'American'. values-text = '美国人'. APPEND values. values-key = 'english'. values-text = '英国人'. APPEND values. values-key = 'korean'. values-text = '韩国人'. APPEND values. CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'P_LANG' values = values[]* EXCEPTIONS* ID_ILLEGAL_NAME = 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. "setlist