ABAP--ListBox（包含是否显示Key）

ListBox -- 下拉列表框 //

 

实现方法：自己写了个小例子，方便以后直接拿来用了。 

 

 REPORT  ZJOI_TEST.

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_CB TYPE C AS CHECKBOX DEFAULT 'X' USER-COMMAND CHECK.

*定义listbox，必须指定visible length
PARAMETERS: P_LIST(4) TYPE C AS LISTBOX VISIBLE LENGTH 10.

*开始执行
AT SELECTION-SCREEN OUTPUT .

  CLEAR P_LIST.
  REFRESH LIST.
* 选中checkbox
  IF P_CB = 'X'.

*   向listbox里面添加值
    VALUE-KEY = 'key1' .      "这个就是变量P_LIST的值
    VALUE-TEXT = 'text1' .    "这个是text
    APPEND VALUE TO LIST .

    VALUE-KEY = 'key2' .
    VALUE-TEXT = 'text2' .
    APPEND VALUE TO LIST .

    VALUE-KEY = 'key3' .
    VALUE-TEXT = 'text3' .
    APPEND VALUE TO LIST .

*   调用函数显示listbox里面的值
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        ID     = 'P_LIST'
        VALUES = LIST.

    LOOP AT SCREEN .
      IF SCREEN-NAME = 'P_LIST'.
        SCREEN-REQUIRED = 1.
        MODIFY SCREEN .
      ENDIF .
    ENDLOOP .

  ELSE.
*    CLEAR LIST.
    LOOP AT SCREEN .
      IF SCREEN-NAME = 'P_LIST'.
        SCREEN-INPUT = 0.
        MODIFY SCREEN .
      ENDIF .
    ENDLOOP .

  ENDIF .

START-OF-SELECTION .

*--〉输出到第二屏幕看看
  WRITE / P_LIST.

  WRITE: / , '附加screen结构中各个参数的含义:' ,/.

  WRITE:/
    'name:控件或者字段的名称；', / ,
    'group：组别，用于对控件的管理；', / ,
    'active：是否可见，并可输入', / ,
    'required：必须输入字段', / ,
    'input：输入字段（能够输入）', / ,
    'output：输出字段（能够输出）', / ,
    'intensified:高亮显示（就是颜色变深）', / ,
    'invisible：禁用字段（是否可见）', / ,
    'length ：长度display_3d：3d显示（就是有立体感）', / ,
    'value_help：有查询帮助。'.

 

注：此程序有个小现象，即在Listbox为空时候就不能去掉checkBox的对勾了，因为此时系统首先Check的ListBox的必输项规则，此处着重ListBox，有兴趣的可以研究Selection-screen的互动控制，之前也作过一些，但具体情况太多了，只能具体情况具体对待了。

附加：好了，下拉列表可以显示，也能回执到程序Key值了，但显示的情况却有两种，一种是key + 空格+ text 的形式，另一种就是只显示text 描述信息，如果你遇到这种情况不要怀疑是代码哪里写错，其实是有配置得来，具体配置如下：首先进入SAP GUI Option的配置窗体下（从SAP Logon窗口Alt + 空格键 + O进入，或者从登陆后的业务编辑界面Alt + F12 --> p 进入都可以），打开第二个根节点Interaction Design 下面的第二个配置文本，在右面的配置详细Controls区域内将“Show keys within dropdown lists”打上对勾，有必要也可以吧下面的List排序也选上。