abap 下拉菜单

Title

 到现在碰到2种下拉菜单的情况。总结下。

第一种，使用ddic中定义了的表的字段。 这种情况下又分2种情况。

第一种：该字段的input help 是 单独的 input help 。直接写参数，值会自动传进来。

TABLES : sflight ,ekko . 

PARAMETERS :  bbb  TYPE ekko-lifnr AS LISTBOX VISIBLE LENGTH 20.

下拉菜单的值自动传进来。

第二种： 该字段的input help 是联合的。这样的情况下值不会自动传到field 里，必须建一个内表。把值传入内表。

TYPE-POOLS: vrm .             "include type pools: vrm,used in set value to list-box

TABLES : sflight ,ekko . 

  *list box
DATA: name TYPE vrm_id ,
      it_list TYPE vrm_values ,
      wa_value LIKE LINE OF it_list .

DATA: BEGIN OF wa_temp_para,
      lifnr TYPE ekko-lifnr,
      name1 TYPE lfa1-name1,
      matnr TYPE ekpo-matnr,
      maktx TYPE makt-maktx,
  END OF wa_temp_para.
DATA itab_temp_para LIKE TABLE OF wa_temp_para.

 

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-012.（自己补充text-012的值）
PARAMETERS: i_lifnr      TYPE ekko-lifnr
                         AS LISTBOX VISIBLE LENGTH 20
                         USER-COMMAND fuch.
SELECTION-SCREEN END OF LINE.  "Vendor Name

 

  SELECT DISTINCT lifnr INTO CORRESPONDING FIELDS OF TABLE itab_temp_para FROM ekko .

       LOOP AT itab_temp_para INTO wa_temp_para .
           wa_value-key = wa_temp_para-lifnr .
           wa_value-text = wa_temp_para-lifnr .
           APPEND  wa_value to  it_list .
           ENDLOOP .
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'I_LIFNR'
      values = it_list.

将查询的值输入内表中，在界面上显示。

第二种情况是自己建的参数，跟第二种情况大同小异。可以自己建立一个data elements 将少数的值 加紧fixed value ，也可以建立一个内表

把值append到内表中，在list下拉菜单中显示。

 

转载于:https://www.cnblogs.com/zhangchao/archive/2009/02/18/1393278.html