ABAP中CHECKBOX 和LISTBOX的使用(屏幕字段的控制)2

最新推荐文章于 2024-11-04 17:25:22 发布

原创最新推荐文章于 2024-11-04 17:25:22 发布 · 1.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#list #parameters #command

SAP 专栏收录该内容

67 篇文章

订阅专栏

这篇博客介绍了如何在ABAP中使用CHECKBOX和LISTBOX进行屏幕字段控制。通过示例代码展示了如何根据CHECKBOX的状态设置LISTBOX的值，以及如何通过函数`VRM_SET_VALUES`显示和更新LISTBOX内容。

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

*&---------------------------------------------------------------------*
*& Report  ZTESTSQL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ztestsql.

TYPE-POOLS: vrm. "存放combobox内容的type pool
DATA: name TYPE vrm_id, "list box的名称
list TYPE vrm_values, "list box的值
value LIKE LINE OF list."list box的结构
*定义checkbox，指定command，为了能够响应选择屏幕中值的改变
PARAMETERS: p_cb1 TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND check,
p_cb2 TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND check.
*定义listbox，必须指定visible length
PARAMETERS: p_list1(10) TYPE c AS LISTBOX
VISIBLE LENGTH 15 ,
p_list2(20) TYPE c AS LISTBOX
VISIBLE LENGTH 25 .
*开始执行
AT SELECTION-SCREEN OUTPUT .
*选择1而没有选择2
  IF p_cb1 = 'X' AND p_cb2 = ''.
*向listbox里面添加值
    REFRESH list .
    value-key = '1111111111' . "这个就是变量P_LIST的值
    value-text = '1111111111' . "这个是text
    APPEND value TO list .
    value-key = '2222222222' .
    value-text = '2222222222' .
    APPEND value TO list .
    value-key = '3333333333' .
    value-text = '3333333333' .
    APPEND value TO list .
*调用函数显示listbox里面的值
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        id     = 'P_LIST1'
        values = list.
*把第二个listbox的值清空，并且不能输入
    CLEAR p_list2 .
    LOOP AT SCREEN .
      IF screen-name = 'P_LIST2' .
        screen-input = 0 .
        MODIFY SCREEN .
      ENDIF .
    ENDLOOP .
*选择2，没有选择1，同上
  ELSEIF p_cb2 = 'X' AND p_cb1 = ''.
    REFRESH list .
    value-key = 'AAAAAAAAAAAAAAAAAAAA' .
    value-text = 'AAAAAAAAAAAAAAAAAAAA' .
    APPEND value TO list .
    value-key = 'BBBBBBBBBBBBBBBBBBBB' .
    value-text = 'BBBBBBBBBBBBBBBBBBBB' .
    APPEND value TO list .
    value-key = 'CCCCCCCCCCCCCCCCCCCC' .
    value-text = 'CCCCCCCCCCCCCCCCCCCC' .
    APPEND value TO list .
    APPEND value TO list .
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        id     = 'P_LIST2'
        values = list.
*清空listbox 1的值
    CLEAR p_list1 .
    LOOP AT SCREEN .
      IF screen-name = 'P_LIST1' .
        screen-input = 0 .
        MODIFY SCREEN .
      ENDIF .
    ENDLOOP .
*都没有选择，都清空且不能输入
  ELSEIF p_cb1 = '' AND p_cb2 = '' .
    CLEAR: p_list1,p_list2 .
    LOOP AT SCREEN .
      IF screen-name = 'P_LIST1' .
        screen-input = 0 .
        MODIFY SCREEN .
      ENDIF .
    ENDLOOP .
    LOOP AT SCREEN .
      IF screen-name = 'P_LIST2' .
        screen-input = 0 .
        MODIFY SCREEN .
      ENDIF .
    ENDLOOP .
*都选，执行
  ELSEIF p_cb1 = 'X' AND p_cb2 = 'X' .
    REFRESH list .
    value-key = '1111111111' .
    value-text = '1111111111' .
    APPEND value TO list .
    value-key = '2222222222' .
    value-text = '2222222222' .
    APPEND value TO list .
    value-key = '3333333333' .
    value-text = '3333333333' .
    APPEND value TO list .
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        id     = 'P_LIST1'
        values = list.
    REFRESH list .
    value-key = 'AAAAAAAAAAAAAAAAAAAA' .
    value-text = 'AAAAAAAAAAAAAAAAAAAA' .
    APPEND value TO list .
    value-key = 'BBBBBBBBBBBBBBBBBBBB' .
    value-text = 'BBBBBBBBBBBBBBBBBBBB' .
    APPEND value TO list .
    value-key = 'CCCCCCCCCCCCCCCCCCCC' .
    value-text = 'CCCCCCCCCCCCCCCCCCCC' .
    APPEND value TO list .
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        id     = 'P_LIST2'
        values = list.
  ENDIF .

START-OF-SELECTION .
*输出到第二屏幕看看
  WRITE: p_list1 ,/ p_list2 .   " GET_BWART