下拉框

最新推荐文章于 2023-02-24 09:53:09 发布

东哥威武霸气

最新推荐文章于 2023-02-24 09:53:09 发布

阅读量611

点赞数

本文链接：https://blog.csdn.net/yandong_song/article/details/7789875

版权

ABAP 专栏收录该内容

38 篇文章 1 订阅

订阅专栏

REPORT  Z_LISTBOX .
TYPE-POOLS :VRM .
DATA : name type vrm_id ,
      list TYPE vrm_values ,
       value LIKE LINE OF LIST .
PARAMETER : listbox1 ( 20 ) AS LISTBOX VISIBLE LENGTH 20 .

AT SELECTION-SCREEN OUTPUT .
   REFRESH list .
   CLEAR list .
  name = 'listbox1' .
   value - key = '1' .
   value - text = 'Chinese' .
   APPEND value to list .
   value - key = '2' .
   value - text = 'American' .
   APPEND value to list .
   value - key = '3' .
   value - text = 'English' .
   APPEND value to list .
   value - key = '4' .
   value - text = 'French' .
   APPEND value to list .

   CALL FUNCTION 'VRM_SET_VALUES'
     EXPORTING
       ID               = name
      VALUES           = LIST
     EXCEPTIONS
      ID_ILLEGAL_NAME = 1
       OTHERS           = 2 .