SAP ListBox的使用

最新推荐文章于 2024-01-22 16:38:06 发布

cite3828

最新推荐文章于 2024-01-22 16:38:06 发布

阅读量507

点赞数

本文详细介绍了如何在ABAP中使用ListBox组件，并通过编写特定的模块代码来实现ListBox的联动及选择事件触发功能。文章首先指导读者如何配置ListBox的基本属性，接着深入讲解了如何通过编写LOAD_DATA模块来读取数据并填充ListBox。

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

先要在代码中写入 type-pools :vrm .

然后在代码中新建一个屏幕，在屏幕制作器中拖一个"输入/输出字段"，在下拉属性中选"ListBox",如下图.

如果要实现ListBox连动或选择时触发其它事件，需要设置"功能码"。

在逻辑流中写入如下代码。

PROCESS BEFORE OUTPUT .
MODULE STATUS_0100 .
MODULE LOAD_DATA .
*
PROCESS AFTER INPUT .
MODULE USER_COMMAND_0100 .
"
"如果要实现ListBox连动或选择时触发其它事件,需要
"写如下代码
"process ON VALUE-REQUEST.
"field zxh module load_data.

激活屏幕，然后双击"MODULE LOAD_DATA".进入代码编辑界面编写 LOAD_DATA的实现代码。

module LOAD_DATA output.
   data:lv_name type vrm_id,
        lt_list type vrm_value OCCURS 0,
        lw_value like line of lt_list.
   clear:lt_list,lw_value.
   lv_name = 'VALUE'.
   IF ISLOADED = ''.
       "读取数据表内容至内表
       SELECT * INTO TABLE IT_ZXSB FROM ZXSB.
       LOOP AT IT_ZXSB.
         lw_value-key  = IT_ZXSB-ZXH.
         lw_value-text = IT_ZXSB-ZXM.
         APPEND LW_VALUE TO LT_LIST.
       ENDLOOP.

      "将内表中的数据读到ListBox中显示出来。
      CALL FUNCTION 'VRM_SET_VALUES'
        EXPORTING
          id                    = 'ZXH'
          values                = lt_list[]
*       EXCEPTIONS
*         ID_ILLEGAL_NAME       = 1
*         OTHERS                = 2
                .
      IF sy-subrc <> 0.
*    Implement suitable error handling here
      ENDIF.
      ISLOADED = 'X'.
   ENDIF.
endmodule.                 " LOAD_DATA  INPUT

激活整个程序，运行结果如下。