复选框、单选按钮、下拉列表的定义

最新推荐文章于 2021-08-09 13:25:02 发布

weixin_33912638

最新推荐文章于 2021-08-09 13:25:02 发布

阅读量344

点赞数

CC 4.0 BY-SA版权

文章标签： java

原文链接：http://www.cnblogs.com/caizjian/p/3705369.html

本文介绍了如何在 ABAP 程序中使用 UI 控件，包括复选框、单选按钮及下拉列表的定义与事件处理。通过具体代码示例展示了如何设置这些控件并响应用户交互。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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