REPORT z.
TYPE-POOLS: vrm.
DATA: it_val TYPE vrm_values,
w_line LIKE LINE OF it_val.
PARAMETERS p_bukrs LIKE t001-bukrs AS LISTBOX
VISIBLE LENGTH 25 OBLIGATORY.
INITIALIZATION.
SELECT bukrs butxt FROM t001 INTO (w_line-key, w_line-text).
APPEND w_line TO it_val.
CHECK p_bukrs IS INITIAL.
p_bukrs = w_line-key.
ENDSELECT.
AT SELECTION-SCREEN OUTPUT.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_BUKRS'
values = it_val.
END-OF-SELECTION.
WRITE: / 'Company Code:', p_bukrs.
REPORT yaowei_test_list .
TABLES:t001.
DATA: ok_code LIKE sy-ucomm.
*下拉列表相关定义
TYPE-POOLS vrm. "下拉列表使用的类型定义
DATA: sc_list TYPE vrm_id. "使用列表的字段名
DATA:it_list TYPE vrm_values. "使用列表的清单内容
DATA: wa_list LIKE LINE OF it_list.
"创建列表清单使用的工作区
"不能自己定义内表,一定要用VRM_VALUES.其他有2个字段:KEY AND TEXT
DATA p_bukrs LIKE t001-bukrs.
START-OF-SELECTION.
CALL SCREEN 100.
"或PARAMETERS: SC_LIST(20) AS LISTBOX VISIBLE LENGTH 10.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS '100'.
* SET TITLEBAR 'xxx'.
REFRESH it_list. "勿忘
SELECT bukrs butxt FROM t001 INTO (wa_list-key, wa_list-text).
APPEND wa_list TO it_list.
CHECK p_bukrs IS INITIAL.
p_bukrs = wa_list-key.
ENDSELECT.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_BUKRS'
values = it_list."屏幕中的下拉菜单的NAME,下拉菜单选择LISTBOX
*WITH KEY 若选LISTBOX的话带不出KEY值
REFRESH it_list.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE: ok_code.
WHEN: 'BACK'.
LEAVE TO SCREEN 0.
*WHEN: 'LIST_SEL'.
*MESSAGE 'LIST_SEL' TYPE 'I'.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/CompassButton/archive/2006/08/19/1097624.aspx
