ABAP中CHECKBOX 和LISTBOX的使用(屏幕字段的控制)1

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

*& Report ZDIALOGTEST

*&

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

*&

*&

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

REPORT zdialogtest.

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,

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 .

*选择1而没有选择2

IF p_cb1 = 'X' AND p_cb2 = ''.

*向listbox里面添加值

REFRESH list .

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

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

APPEND value TO list .

value-key = '2222222222' .

value-text = '2222222222' .

APPEND value TO list .

value-key = '3333333333' .

value-text = '3333333333' .

APPEND value TO list .

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

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'P_LIST1'

values = list.

*把第二个listbox的值清空，并且不能输入

CLEAR p_list2 .

LOOP AT SCREEN .

IF screen-name = 'P_LIST2' .

screen-input = 0 .

MODIFY SCREEN .

ENDIF .

ENDLOOP .

*选择2，没有选择1，同上

ELSEIF p_cb2 = 'X' AND p_cb1 = ''.

REFRESH list .

value-key = 'AAAAAAAAAAAAAAAAAAAA' .

value-text = 'AAAAAAAAAAAAAAAAAAAA' .

APPEND value TO list .

value-key = 'BBBBBBBBBBBBBBBBBBBB' .

value-text = 'BBBBBBBBBBBBBBBBBBBB' .

APPEND value TO list .

value-key = 'CCCCCCCCCCCCCCCCCCCC' .

value-text = 'CCCCCCCCCCCCCCCCCCCC' .

APPEND value TO list .

APPEND value TO list .

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'P_LIST2'

values = list.

*清空listbox 1的值

CLEAR p_list1 .

LOOP AT SCREEN .

IF screen-name = 'P_LIST1' .

screen-input = 0 .

MODIFY SCREEN .

ENDIF .

ENDLOOP .

*都没有选择，都清空且不能输入

ELSEIF p_cb1 = '' AND p_cb2 = '' .

CLEAR: p_list1,p_list2 .

LOOP AT SCREEN .

IF screen-name = 'P_LIST1' .

screen-input = 0 .

MODIFY SCREEN .

ENDIF .

ENDLOOP .

LOOP AT SCREEN .

IF screen-name = 'P_LIST2' .

screen-input = 0 .

MODIFY SCREEN .

ENDIF .

ENDLOOP .

*都选，执行

ELSEIF p_cb1 = 'X' AND p_cb2 = 'X' .

REFRESH list .

value-key = '1111111111' .

value-text = '1111111111' .

APPEND value TO list .

value-key = '2222222222' .

value-text = '2222222222' .

APPEND value TO list .

value-key = '3333333333' .

value-text = '3333333333' .

APPEND value TO list .

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'P_LIST1'

values = list.

REFRESH list .

value-key = 'AAAAAAAAAAAAAAAAAAAA' .

value-text = 'AAAAAAAAAAAAAAAAAAAA' .

APPEND value TO list .

value-key = 'BBBBBBBBBBBBBBBBBBBB' .

value-text = 'BBBBBBBBBBBBBBBBBBBB' .

APPEND value TO list .

value-key = 'CCCCCCCCCCCCCCCCCCCC' .

value-text = 'CCCCCCCCCCCCCCCCCCCC' .

APPEND value TO list .

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'P_LIST2'

values = list.

ENDIF .

START-OF-SELECTION .

*输出到第二屏幕看看

WRITE: p_list1 ,/ p_list2 .

http://tech.chinaunix.net/a2009/0716/607/000000607414.shtml