- 定义一个数据库表,装载着list下拉下的内容
2. 定义该数据库表类型的内表,结构体
3. 调用所在屏幕 CALL SCREEN 9000.
4. 在PAI后面增加:
PROCESS ON VALUE-REQUEST.
FIELD LIST_01 MODULE CREATE_DROPDOWN_LIST.
list_01是屏幕字段,指定listbox,功能码
5. 程序中代码:
MODULE CREATE_DROPDOWN_LIST INPUT.
SELECT PROJID PROJNAME
FROM ZBC400_PROJ_113
INTO CORRESPONDING FIELDS OF TABLE ITAB_PROJ.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* DDIC_STRUCTURE = ' '
RETFIELD = 'PROJID'
* PVALKEY = ' '
* DYNPPROG = ' '
* DYNPNR = ' '
* DYNPROFIELD = ' '
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ' '
VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
VALUE_TAB = ITAB_PROJ
* FIELD_TAB =
* RETURN_TAB =
* DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDMODULE.

本文介绍如何使用ABAP编程语言从数据库表ZBC400_PROJ_113中选择PROJID和PROJNAME字段,并将这些数据加载到屏幕的列表框(list_01)中作为下拉选项,涉及模块调用、数据库查询及函数F4IF_INT_TABLE_VALUE_REQUEST的使用。

被折叠的 条评论
为什么被折叠?



