ITPub博客

首页 > Linux操作系统 > Linux操作系统 > SAP ListBox的使用

SAP ListBox的使用

原创 Linux操作系统 作者:100113 时间:2012-05-31 19:01:30 0 删除 编辑
先要在代码中写入 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
 
激活整个程序,运行结果如下。
 
 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/23353800/viewspace-731602/,如需转载,请注明出处,否则将追究法律责任。

上一篇: ABAP OO的使用
请登录后发表评论 登录
全部评论

注册时间:2011-11-24

  • 博文量
    19
  • 访问量
    51363