Ａｂａｐ下拉菜单制作

来源：互联网发布：linux压缩gz文件命令编辑：程序博客网时间：2024/04/29 15:07

abap制作下拉菜单即listbox用代码写的话非常方便。网上找了一段代码

REPORT ZTEST_LISTBOX.

TYPE-POOLS: VRM.

DATA: LNAME TYPE VRM_ID,
ILIST TYPE VRM_VALUES, "ITAB
LILIST LIKE LINE OF ILIST.
DATA: PS_T(10) TYPE C.

PARAMETERS: PS(10) AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.

LNAME = 'PS'.
LILIST-KEY = '1'.
LILIST-TEXT = 'LINE 1'.
APPEND LILIST TO ILIST.

LILIST-KEY = '2'.
LILIST-TEXT = 'LINE 2'.
APPEND LILIST TO ILIST.

CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
           ID     = LNAME
           VALUES = ILIST.

START-OF-SELECTION.
CASE PS.
   WHEN '1'.
     PS_T = 'LINE 1'.
   WHEN '2'.
     PS_T = 'LINE 2'.
ENDCASE.
WRITE PS_T.

需要用到type-pools： vrm，和函数vrm_set_values都是帮我们封装好的。传的两个参数是listbox空间的名字，和一个内表里面存储了下拉菜单的名字，一个唯一标志符号key。等把windows编程研究熟悉了在和win32API来比较，看看写屏幕程序两者设计的差异。