ABAP中CHECKBOX 和LISTBOX的使用(屏幕字段的控制)2
2012-09-04 11:17
344 查看
*&---------------------------------------------------------------------*
*& Report ZTESTSQL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ztestsql.
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 . " GET_BWART
*& Report ZTESTSQL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ztestsql.
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 . " GET_BWART
相关文章推荐
- ABAP中CHECKBOX 和LISTBOX的使用(屏幕字段的控制)1
- ABAP 使用DYNP_VALUES_READ来获取屏幕字段值
- ABAP CHECKBOX 和LISTBOX使用
- ABAP--如何使用'F4IF_INT_TABLE_VALUE_REQUEST'填写屏幕的多个字段
- ABAP CHECKBOX 和LISTBOX使用指南[转]
- ABAP--如何使用'F4IF_INT_TABLE_VALUE_REQUEST'填写屏幕的多个字段
- ABAP CHECKBOX 和LISTBOX使用指南
- abap报表中(ALV或者普通屏幕的定制控制中)如何让列可以使用求和按钮
- ABAP--如何使用'F4IF_INT_TABLE_VALUE_REQUEST'填写屏幕的多个字段
- ABAP 使用DYNP_VALUES_READ来获取屏幕字段值
- ABAP--如何使用'F4IF_INT_TABLE_VALUE_REQUEST'填写屏幕的多个字段
- ABAP CHECKBOX 和LISTBOX使用指南
- ABAP--如何使用'F4IF_INT_TABLE_VALUE_REQUEST'填写屏幕的多个字段
- ABAP 使用DYNP_VALUES_READ来获取屏幕字段值
- ABAP CHECKBOX 和LISTBOX使用指南
- [转]ABAP CHECKBOX 和LISTBOX使用指南
- ABAP CHECKBOX 和LISTBOX使用
- ABAP如何使用屏幕显示“定制控制”
- SAP 通过事务代码与屏幕变式(SHD0)控制控制用户界面的某些字段,以控制生产订单的调度类型为例
- iOS 开发 高级:通过AirServer使用AirPlay镜像并实现多屏幕显示控制