◆◆0

如何创建下拉列表(drop down List box)

石头 9月 11, 2016 Dialog 12,882 views 0

[隐藏]

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

1, 创建一个简单dialog程序

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

2, 添加下拉列表字段

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

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

激活并保存。

3, 创建PBO module

创建PBO module PBO_0100.

插入代码

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.