【转载】屏幕开发：如何创建下拉列表(drop down List box)

以下介绍如何在dialog程序屏幕上创建下拉列表。下拉列表就是下面这个样。

1, 创建一个简单dialog程序

SE80，创建一个简单dialog程序，并且添加一个’0100‘的屏幕，详细步骤参照-->创建dialog程序教程

2, 添加下拉列表字段

在屏幕100上添加下拉列表字段，从数据字典中添加字段vbak-vbeln

双击vbeln输入字段，设定字段vbeln的dropdown为listbox

激活并保存。

3, 创建PBO module

创建PBO module PBO_0100.

 

插入代码

 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

MODULE pbo_0100 OUTPUT.     TYPE-POOLS : vrm.   DATA: ld_field    TYPE vrm_id,         lit_listbox TYPE vrm_values,         lwa_listbox LIKE LINE OF lit_listbox.   DATA: lit_vbak TYPE STANDARD TABLE OF vbak,         lwa_vbak TYPE vbak.   * 抽取数据   SELECT *     UP TO 10 ROWS     FROM vbak     INTO TABLE lit_vbak.     LOOP AT lit_vbak INTO lwa_vbak.     lwa_listbox-key = lwa_vbak-vbeln.     lwa_listbox-text = lwa_vbak-vbeln.     APPEND lwa_listbox TO lit_listbox.   ENDLOOP.     ld_field = 'VBAK-VBELN'. * 下拉列表赋值   CALL FUNCTION 'VRM_SET_VALUES'     EXPORTING       id     = ld_field       values = lit_listbox.   ENDMODULE.

 

4, 创建TCode

SE80创建tcode

选择dialog transaction选项

保存。

也可以通过SE93创建Tcode

5, 运行结果