check box 控制显示

如果想checkbox每次选择起到控制作用
PARAMETERS: p_cb1 TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND check,

必须设置这个user-command
必须设置，后面的名字无所谓

REPORT zlm_checkbox_04.

TYPE-POOLS: vrm. "存放combobox内容的type pool

DATA: name TYPE vrm_id, "list box的名称

list TYPE vrm_values, "list box的值

value LIKE LINE OF list. "list box的结构

*定义checkbox，指定command，为了能够响应选择屏幕中值的改变

PARAMETERS: p_cb1 TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND check,
"必须设置这个user-command

p_cb2 TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND check.

*定义listbox，必须指定visible length

PARAMETERS: p_list1(10) TYPE c AS LISTBOX VISIBLE LENGTH 15 ,

p_list2(20) TYPE c AS LISTBOX VISIBLE LENGTH 25 .

*开始执行

AT SELECTION-SCREEN OUTPUT .

PERFORM zform_int.

PERFORM zform_seletc.

*&---------------------------------------------------------------------*

*& Form zform_seletc

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM zform_seletc.

IF p_cb1 = ''.

CLEAR: p_list1 .

LOOP AT SCREEN .

IF screen-name = 'P_LIST1' .

screen-input = 0 .

MODIFY SCREEN .

ENDIF .

ENDLOOP .

ENDIF.

IF p_cb2 = ''..

LOOP AT SCREEN .

IF screen-name = 'P_LIST2' .

screen-input = 0 .

MODIFY SCREEN .

ENDIF .

ENDLOOP .

ENDIF.

ENDFORM. "zform_seletc

*&---------------------------------------------------------------------*

*& Form zform_int

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM zform_int.

*向listbox里面添加值

REFRESH list .

value-key = '1' . "这个就是变量P_LIST的值

value-text = '一' . "这个是text

APPEND value TO list .

value-key = '2' .

value-text = '二' .

APPEND value TO list .

*调用函数显示listbox里面的值

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'P_LIST1'

values = list.

REFRESH list .

value-key = 'A' .

value-text = '啊' .

APPEND value TO list .

value-key = 'O' .

value-text = '哦' .

APPEND value TO list .

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'P_LIST2'

values = list.

ENDFORM. "zform_int