ABAP dialog怎么加下拉列表

在ABAP Dialog Programming中，可以通过使用控件类型为“下拉列表框”来实现下拉列表的添加。下面是添加下拉列表框的步骤：

1. 在屏幕绘制时，使用函数模块“DYNP_VALUES_READ”读取屏幕字段的值，然后使用函数模块“DYNP_VALUES_UPDATE”更新字段的值。

2. 使用“MODULE池”中的模块，如MODULE STATUS_XX，来创建下拉列表框。在该模块中定义下拉列表框的元素，并将其添加到屏幕中。

3. 在PBO（Process Before Output）事件中，使用函数模块“DYNP_VALUES_READ”读取下拉列表框的值，并将其设置为屏幕字段的默认值。

4. 在PAI（Process After Input）事件中，使用函数模块“DYNP_VALUES_READ”读取下拉列表框的值，并将其存储在屏幕字段中。

下面是一个简单的例子，演示如何添加一个下拉列表框：

REPORT ztest_program.

TABLES: sflight.

*定义屏幕字段
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_carrid TYPE sflight-carrid AS LISTBOX VISIBLE LENGTH 10.
SELECTION-SCREEN END OF BLOCK b1.

*PBO事件
MODULE user_command_0100 OUTPUT.
*定义下拉列表框元素
DATA: lt_carrid TYPE TABLE OF sflight-carrid,
ls_carrid TYPE sflight-carrid.
SELECT carrid UP TO 10 ROWS FROM sflight INTO TABLE lt_carrid.
LOOP AT lt_carrid INTO ls_carrid.
p_carrid-LOW = ls_carrid-carrid.
p_carrid-TEXT = ls_carrid-carrname.
APPEND p_carrid.
ENDLOOP.
ENDMODULE.

*PAI事件
MODULE user_command_0100 INPUT.
*读取下拉列表框的值
DATA: lv_carrid TYPE sflight-carrid.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
TABLES
dynpfields = p_carrid
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
invalid_parameter = 7
undefined_error = 8
OTHERS = 9.
READ TABLE p_carrid INTO lv_carrid INDEX 1.
*将下拉列表框的值存储在屏幕字段中
MOVE lv_carrid TO sflight-carrid.
ENDMODULE.

在上面的例子中，我们定义了一个下拉列表框，用于选择SFLIGHT表中的航空公司代码。在PBO事件中，我们使用SELECT语句从SFLIGHT表中检索出前10个航空公司代码，并将其添加到下拉列表框中。在PAI事件中，我们使用函数模块“DYNP_VALUES_READ”读取下拉列表框的值，并将其存储在SFLIGHT表的CARRID字段中。