◆◆0

选择画面上创建下拉列表(list box)[VRM_SET_VALUES]

石头 3月 2, 2017 Report, 函数 12,649 views 0

下面介绍在选择画面中创建下拉列表(list box),

语法

PARAMETER xxx AS LISTBOX VISIBLE LENGTH vlen [USER-COMMAND fcode]

1	PARAMETER xxx AS LISTBOX VISIBLE LENGTH vlen [USER-COMMAND fcode]

然后用函数VRM_SET_VALUES向下拉列表中添加值。

代码：

REPORT ztest_listbox.
TYPE-POOLS: vrm .
DATA:git_function TYPE vrm_values,
     gwa_function LIKE LINE OF git_function.

PARAMETERS: p_fun TYPE char5 AS LISTBOX VISIBLE LENGTH 10.

*&---------------------------------------------------------------------*
*&初始化
*&---------------------------------------------------------------------*
INITIALIZATION.
  PERFORM frm_fill_function.
*&---------------------------------------------------------------------*
*&      Form  FRM_FILL_FUNCTION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_fill_function .

  REFRESH:git_function.

  gwa_function-key   = '1'.                         "个就是变量下拉框的值
  gwa_function-text  = 'ABAP'.                      "这个是text
  APPEND gwa_function TO git_function.
  gwa_function-key   = '2'.                         "个就是变量下拉框的值
  gwa_function-text  = 'BASIS'.                      "这个是text
  APPEND gwa_function TO git_function.
  gwa_function-key   = '3'.                         "个就是变量下拉框的值
  gwa_function-text  = 'SD'.                        "这个是text
  APPEND gwa_function TO git_function.
  gwa_function-key   = '4'.                         "个就是变量下拉框的值
  gwa_function-text  = 'MM'.                        "这个是text
  APPEND gwa_function TO git_function.

  "调用函数显示listbox里面的值
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_FUN'
      values = git_function.

ENDFORM.