一个关于checkbox & listbox如何使用的简单例子。

************************************************************************

*

* This report shows how to use checkbox & listbox

*

************************************************************************

REPORT ZCHECK_LIST_BOX.

************************************************************************

* TYPE-POOLS

************************************************************************

TYPE-POOLS: VRM. "type pools for listbox

************************************************************************

* DATA

************************************************************************

DATA:

IT_LIST TYPE VRM_VALUES , "listbox values

WA_LIST LIKE LINE OF IT_LIST.

************************************************************************

* PARAMETERS

************************************************************************

PARAMETERS:

P_CB TYPE C AS CHECKBOX DEFAULT 'X' USER-COMMAND CHECK.

* for list box,visible length is obligatory

PARAMETERS:

P_LIST(10) TYPE C AS LISTBOX VISIBLE LENGTH 15.

************************************************************************

* AT SELECTION-SCREEN OUTPUT

************************************************************************

AT SELECTION-SCREEN OUTPUT.

IF P_CB = 'X'.

REFRESH IT_LIST.

WA_LIST-KEY = '1111111111'.

WA_LIST-TEXT = '1111111111'.

APPEND WA_LIST TO IT_LIST.

WA_LIST-KEY = '2222222222'.

WA_LIST-TEXT = '2222222222'.

APPEND WA_LIST TO IT_LIST.

* display contents of listbox

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = 'P_LIST'

VALUES = IT_LIST.

ELSE.

CLEAR P_LIST.

LOOP AT SCREEN.

IF SCREEN-NAME = 'P_LIST'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

************************************************************************

* START-OF-SELECTION

************************************************************************

START-OF-SELECTION.

WRITE: P_LIST.