如何创建下拉框

1. 在什么地方创建下拉框

用到的地方有DIALOG,选择屏幕两种.

2. 如何创建

1> 如果下拉框对应字段的Domain有Fixed Values,那么它会作为下拉框来作为选择值.

   如:

PARAMETERS: pa_attyp type mara-attyp as LISTBOX VISIBLE LENGTH 10.

Your browser may not support display of this image.

效果如图:

Your browser may not support display of this image.

2> 在选择屏幕的AT SELECTION-SCREEN OUTPUT.即屏幕显示之前事件中调用FM: VRM_SET_VALUES来实现

.CALL FUNCTION "VRM_SET_VALUES"

   EXPORTING

     VRM_ID = '对应要设计下拉框的屏幕字段'

     VALUES = '一个包含KEY与KTEXT字段的内表'

源码:
TYPE-POOLS: vrm.
PARAMETERS: pa_matnr TYPE mara-matnr AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.
  PERFORM set_matnr_list.
  
*&---------------------------------------------------------------------*
*&      Form  set_matnr_list
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM set_matnr_list .

  DATA: l_vrm_id  TYPE vrm_id,
        lt_values TYPE vrm_values,
        lw_value  TYPE vrm_value.

  l_vrm_id = 'PA_MATNR'.

  lw_value-key  = 'F100-AA'.
  lw_value-text = 'Machine Comp1'.
  APPEND lw_value TO lt_values.

  lw_value-key  = 'F200-BB'.
  lw_value-text = 'Material BB'.
  APPEND lw_value TO lt_values.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = l_vrm_id
      values          = lt_values
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM.                    " set_matnr_list

Your browser may not support display of this image. 

3> 对于DIALOG来说,可以在POV事件中处理, 调用FM:

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

    EXPORTING

      retfield               = 'Ref field on screen'

     VALUE_ORG               = 'B'

    tables

      value_tab              = '有两列值的内表'

   设置F4 help,传入的内表有两列,即可作为下拉框来使用.

注意VALUE_TAB参数对应的行类型中的字段的类型须是Data element,如果是基本类型的话, 则调用F4 帮助时这个字段不会显示在列表中.

另外也可以如PBO事件中调用VRM_SET_VALUES设置下拉框.

Your browser may not support display of this image.

设置输入字段属性Drop Down为List Box

另外相关属性有

Input :设置为possible, 输入帮助有效

另外Value List: 为SPACE时可以采用输入帮助的值作为下拉列表

              为A时采用VRM_SET_VALUES的设置.

不过似乎设置不设置,不起作用.

   1. Screen

PROCESS ON VALUE-REQUEST.
  FIELD MARA-MATNR MODULE pov_matnr.

   2. POV module

MODULE pov_matnr INPUT.

  DATA: lw_value  TYPE ty_povmat.

  CLEAR: gt_values[].

  lw_value-matnr  = 'F100-AA'.
  lw_value-text = 'Machine Comp1'.
  APPEND lw_value TO gt_values.

  lw_value-matnr  = 'F200-BB'.
  lw_value-text = 'Material BB'.
  APPEND lw_value TO gt_values.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'MATNR'
      dynpprog        = sy-repid
      dynpnr          = '0100'
      dynprofield     = 'MARA-MATNR'
      value_org       = 'S'
    TABLES
      value_tab       = gt_values
    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.                 " pov_matnr  INPUT