dialog 下拉框

dialog 下拉框

以下是介绍如何在dialog中创建下拉列表

1、创建一个简单的dialog程序

se38->创建可执行程序->创建屏幕100

2、添加下拉列表字段

双击CARRID输入输出框 设定字段CARRID的dropdown(下拉)为listbox

3、创建PBO MODULE

代码

DATA lt_vrm_value TYPE vrm_values.
  DATA ls_vrm_value TYPE LINE OF vrm_values.

  DATA ld_field TYPE vrm_id.

  "查询数据
  SELECT * INTO TABLE @DATA(lt_sflight)
    FROM sflight
    UP TO 10 ROWS.
  "数据放入下拉列表
  LOOP AT lt_sflight INTO DATA(ls_sflight).
    ls_vrm_value-key = ls_sflight-connid.
    ls_vrm_value-text = ls_sflight-connid.

    APPEND ls_vrm_value TO lt_vrm_value.
    CLEAR ls_vrm_value.
  ENDLOOP.

  ld_field = 'SFLIGHT-CARRID'.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = ld_field
      values = lt_vrm_value.

4、创建事务码