一个关于checkbox & listbox如何使用的简单例子。
[@more@]************************************************************************
*
* 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.
来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8214011/viewspace-910674/，如需转载，请注明出处，否则将追究法律责任。
转载于:http://blog.itpub.net/8214011/viewspace-910674/
扫一扫
5373
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
