Ａｂａｐ下拉菜单制作

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来比较，看看写屏幕程序两者设计的差异。