下拉框

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 .