下拉菜单制作又一方法，效果一般

TYPE-POOLS: vrm .             "include type pools: vrm,used in set value to list-box

 

TABLES : sflight ,ekko .

*list box
DATA: name TYPE vrm_id ,
      it_list TYPE vrm_values ,
      wa_value LIKE LINE OF it_list .

DATA: BEGIN OF wa_temp_para,
      lifnr TYPE ekko-lifnr,
      ernam TYPE ekko-ernam,
END OF wa_temp_para.

DATA itab_temp_para LIKE TABLE OF wa_temp_para.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-012.
PARAMETERS: i_lifnr      TYPE ekko-lifnr
                         AS LISTBOX VISIBLE LENGTH 20
                         USER-COMMAND fuch.
SELECTION-SCREEN END OF LINE.

INITIALIZATION.

  SELECT DISTINCT lifnr ernam INTO CORRESPONDING FIELDS OF TABLE itab_temp_para FROM ekko.

  LOOP AT itab_temp_para INTO wa_temp_para .
    wa_value-key = wa_temp_para-lifnr .
    wa_value-text = wa_temp_para-ernam .
    APPEND  wa_value TO  it_list .
  ENDLOOP .
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'I_LIFNR'
      values = it_list.

START-OF-SELECTION.