<下拉框实现、一> - SAP ABAP 报表选择屏幕下拉框的实现

DATA:vid TYPE vrm_id , "屏幕字段(可以是单个的I/O空间或者是Table Control中的一个单元格)
          list TYPE vrm_values,
          value LIKE LINE OF list.

 

SELECTION-SCREEN: BEGIN OF BLOCK SCR1 WITH FRAME TITLE TEXT-001.
**定义下拉框

PARAMETERS S_LSBOX TYPE c  AS LISTBOX VISIBLE LENGTH 20 DEFAULT '2'.     “选择条件字段

SELECTION- SCREEN:  END  OF  BLOCK SCR1.

*初始化时下拉框赋值
INITIALIZATION.

AT SELECTION-SCREEN OUTPUT

REFRESH LIST .

VALUE- KEY =  '1' .  "这个就是变量P_LIST的值
VALUE- TEXT =  'ZPR0' .  "这个是text
APPEND  VALUE  TO LIST .

VALUE- KEY =  '2' .
VALUE- TEXT =  'ZB01' .
APPEND  VALUE  TO LIST .

VALUE- KEY =  '3' .
VALUE- TEXT =  'ZB02' .
APPEND  VALUE  TO LIST .

**调用下拉框赋值函数
CALL  FUNCTION  'VRM_SET_VALUES'
EXPORTING
ID =  'S_LSBOX'    

VALUES = LIST.

START-OF-SELECTION.

......

END-OF-SELECTION.

转载自：http://hi.baidu.com/gary_c?page=3