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