下拉框

TYPE-POOLS: VRM.
DATA: IT_LIST TYPE VRM_VALUES , "list box的值
            WA_LIST LIKE LINE OF IT_LIST."list box的结构

 

PARAMETERS:TJFW AS LISTBOX VISIBLE LENGTH 20 。

 

AT SELECTION-SCREEN ON VALUE-REQUEST FOR TJFW.

data ID TYPE VRM_ID.

 

WA_LIST-KEY = '1'
WA_LIST-TEXT = '供 应 商'.
APPEND WA_LIST TO IT_LIST .

 

ID = 'TJFW‘.

 

 CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
         ID                    =  ID

        VALUES          = IT_LIST
    EXCEPTIONS
      ID_ILLEGAL_NAME = 1
      OTHERS          = 2.