使用'VRM_SET_VALUES'函数在selection屏幕上建一个Combobox控件示例
2006-08-19 21:26
881 查看
report z.
type-pools: vrm.
data: it_val type vrm_values,
w_line like line of it_val.
parameters p_bukrs like t001-bukrs as listbox
visible length 25 obligatory.
initialization.
select bukrs butxt from t001 into (w_line-key, w_line-text).
append w_line to it_val.
check p_bukrs is initial.
p_bukrs = w_line-key.
endselect.
at selection-screen output.
call function 'VRM_SET_VALUES'
exporting
id = 'P_BUKRS'
values = it_val.
end-of-selection.
write: / 'Company Code:', p_bukrs.
增补,屏幕列表(启明星提供)
REPORT YAOWEI_TEST_LIST .
DATA: OK_CODE LIKE SY-UCOMM.
*下拉列表相关定义
TYPE-POOLS VRM. "下拉列表使用的类型定义
DATA: SC_LIST TYPE vrm_id. "使用列表的字段名
DATA:it_list TYPE vrm_values. "使用列表的清单内容
DATA: wa_list LIKE LINE OF it_list.
"创建列表清单使用的工作区
"不能自己定义内表,一定要用VRM_VALUES.其他有2个字段:KEY AND TEXT
START-OF-SELECTION.
CALL SCREEN 100.
"或PARAMETERS: SC_LIST(20) AS LISTBOX VISIBLE LENGTH 10.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '100'.
* SET TITLEBAR 'xxx'.
DATA:F_NUM TYPE I.
F_NUM = 100000001.
REFRESH IT_LIST. "勿忘
DO 10 TIMES.
*F_NUM = F_NUM + 1.
WA_LIST-KEY = '100000000'.
*F_NUM = F_NUM + 1.
WA_LIST-TEXT = 'A'.
APPEND WA_LIST TO IT_LIST.
ENDDO.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'SC_LIST' "屏幕中的下拉菜单的NAME,下拉菜单选择LISTBOX
*WITH KEY 若选LISTBOX的话带不出KEY值
values = IT_LIST.
REFRESH IT_LIST.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
CASE: OK_CODE.
WHEN: 'BACK'.
LEAVE TO SCREEN 0.
*WHEN: 'LIST_SEL'.
*MESSAGE 'LIST_SEL' TYPE 'I'.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
type-pools: vrm.
data: it_val type vrm_values,
w_line like line of it_val.
parameters p_bukrs like t001-bukrs as listbox
visible length 25 obligatory.
initialization.
select bukrs butxt from t001 into (w_line-key, w_line-text).
append w_line to it_val.
check p_bukrs is initial.
p_bukrs = w_line-key.
endselect.
at selection-screen output.
call function 'VRM_SET_VALUES'
exporting
id = 'P_BUKRS'
values = it_val.
end-of-selection.
write: / 'Company Code:', p_bukrs.
增补,屏幕列表(启明星提供)
REPORT YAOWEI_TEST_LIST .
DATA: OK_CODE LIKE SY-UCOMM.
*下拉列表相关定义
TYPE-POOLS VRM. "下拉列表使用的类型定义
DATA: SC_LIST TYPE vrm_id. "使用列表的字段名
DATA:it_list TYPE vrm_values. "使用列表的清单内容
DATA: wa_list LIKE LINE OF it_list.
"创建列表清单使用的工作区
"不能自己定义内表,一定要用VRM_VALUES.其他有2个字段:KEY AND TEXT
START-OF-SELECTION.
CALL SCREEN 100.
"或PARAMETERS: SC_LIST(20) AS LISTBOX VISIBLE LENGTH 10.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '100'.
* SET TITLEBAR 'xxx'.
DATA:F_NUM TYPE I.
F_NUM = 100000001.
REFRESH IT_LIST. "勿忘
DO 10 TIMES.
*F_NUM = F_NUM + 1.
WA_LIST-KEY = '100000000'.
*F_NUM = F_NUM + 1.
WA_LIST-TEXT = 'A'.
APPEND WA_LIST TO IT_LIST.
ENDDO.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'SC_LIST' "屏幕中的下拉菜单的NAME,下拉菜单选择LISTBOX
*WITH KEY 若选LISTBOX的话带不出KEY值
values = IT_LIST.
REFRESH IT_LIST.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
CASE: OK_CODE.
WHEN: 'BACK'.
LEAVE TO SCREEN 0.
*WHEN: 'LIST_SEL'.
*MESSAGE 'LIST_SEL' TYPE 'I'.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
相关文章推荐
- 使用'VRM_SET_VALUES'函数在selection屏幕上建一个Combobox控件示例
- 使用'VRM_SET_VALUES'函数在selection屏幕上建一个Combobox控件示例
- 使用'VRM_SET_VALUES'函数在selection屏幕上建一个Combobox控件示例
- 使用'VRM_SET_VALUES'函数在selection屏幕上建一个Combobox控件示例
- 使用'VRM_SET_VALUES'函数在selection屏幕上建一个Combobox控件示例
- 使用'SAPGUI_SET_PROPERTY'函数是GUI屏幕可见和不可见
- 使用'SAPGUI_SET_PROPERTY'函数是GUI屏幕可见和不可见
- 使用'SAPGUI_SET_PROPERTY'函数使GUI屏幕可见和不可见
- 使用'SAPGUI_SET_PROPERTY'函数是GUI屏幕可见和不可见
- C#注册控件处理程序(SetConsoleCtrlHandler)函数示例 控制台关闭事件改写
- 演示事件(Event)怎样使用以及怎样为用户控件添加一个事件(示例代码下载)
- 【Linux C代码分享二】UDP Socket示例程序:使用fgets函数获取屏幕输入
- 两个控件使用同一个对应函数的方法
- 演示事件(Event)怎样使用以及怎样为用户控件添加一个事件(示例代码下载)
- 演示事件(Event)怎样使用以及怎样为用户控件添加一个事件(示例代码下载)
- 演示事件(Event)怎样使用以及怎样为用户控件添加一个事件(示例代码下载)
- 演示事件(Event)怎样使用以及怎样为用户控件添加一个事件(示例代码下载)
- 一个类成员函数绑定器的使用示例(二次绑定)
- Listview控件使用SimpleAdapter适配器实现屏幕下滑增加一个item选项以及用到的方法总结
- 使用'VRM_SET_VALUES'函数创建下拉列表