如何让选择屏幕以下拉菜单模式出现

如何让选择屏幕以下拉菜单模式出现

定义选择屏幕的下拉模式：

  g_status          TYPE char10,	（下拉内容显示长度）
   gt_list           TYPE vrm_values,            "list box的值
  g_flag            TYPE char1,                 "列表初始化标识

PARAMETERS: l_status LIKE g_status AS LISTBOX VISIBLE LENGTH 20.

在屏幕逻辑流里添加下拉内容子例程
MODULE status_1001 OUTPUT.
  SET PF-STATUS 'ST01'.
*  SET TITLEBAR 'xxx'.
* 下拉内容赋值：
  PERFORM frm_set_status_list.
ENDMODULE.

FORM frm_set_status_list .

  DATA:
    lv_name  TYPE vrm_id,        "   list box的名称
    lv_value LIKE LINE OF gt_list . "list box的结构

  CHECK g_flag IS INITIAL.

  REFRESH gt_list .

  lv_name = 'L_STATUS'.

  DEFINE fill_list.
    lv_value-key   = &1.  "个就是变量P_LIST的值
*    lv_value-text  = &2.   "这个是text
    APPEND lv_value TO gt_list.
  END-OF-DEFINITION.

  fill_list '全部'.
  fill_list '下拉选择1'.
  fill_list '下拉选择2'.
  fill_list '下拉选择3'.

  "---〉调用函数显示listbox里面的值
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = lv_name  " PARAMETERS's Name
      values = gt_list.

  l_status = '下拉默认初始值'.

  g_flag  = 'X'.
ENDFORM.

*如果实现不出来的话 就把下拉框事件挂在at SELECTION-SCREEN OUTPUT.下写

• PERFORM frm_set_status_list.