OO ALV 实现下拉框

ooALV相关的：

http://blog.sina.com.cn/s/blog_c0978c9b0101hesn.html

至于下拉框，主要的地方如下：

*…………………………………………………………………………………………

* lvc_s_fcat 指定某字段为下拉框

*…………………………………………………………………………………………

DATA: wa_fieldcatalog    TYPE lvc_s_fcat,    "显示数据列内表工作区域

      it_fieldcatalog    TYPE lvc_t_fcat.    "显示数据列内表

DEFINE mac_fieldlog.

* g_pos = g_pos + 1.                               "第几列

* wa_fieldcatalog-col_pos         = g_pos.         "列

  wa_fieldcatalog-fieldname       = &1.            "字段名称

* wa_fieldcatalog-coltext         = &2.            "显示名称，跟reptext效果基本相同

  wa_fieldcatalog-reptext         = &2.

  wa_fieldcatalog-outputlen       = &3.            "显示长度

……  其他相关逻辑 ……

"对AAA字段实现下拉框显示

  if &1 eq 'AAA'.

     wa_fieldcatalog-edit     = 'X'.               "可编辑

    wa_fieldcatalog-drdn_hndl = '1'.               "下拉框句柄1

    wa_fieldcatalog-outputlen = 7.

  endif.

"对BBB字段实现下拉框显示

  if &1 eq 'BBBB'.

    wa_fieldcatalog-drdn_hndl = '2'.              "下拉框句柄2

  endif.

  append wa_fieldcatalog to it_fieldcatalog.

  clear wa_fieldcatalog.

END-OF-DEFINITION.

*…………………………………………………………………………………………

* 调用类，实现下拉框功能

*…………………………………………………………………………………………

DATA: g_alv_grid    TYPE REF TO cl_gui_alv_grid,                     "ALV类

      alv_ctner     TYPE REF TO cl_gui_docking_container.

FORM zform_alv_show .

  DATA:   l_style      TYPE i,

          ls_layout    TYPE lvc_s_layo,

          is_stable    TYPE lvc_s_stbl,

          l_disvariant TYPE disvariant.

* 屏幕初始化

  IF alv_ctner IS INITIAL.

    CREATE OBJECT alv_ctner

      EXPORTING

        repid                       = sy-repid

        dynnr                       = '9001'

*       side                        = cl_gui_docking_container=>dock_at_right      ”ALV贴屏幕右边，从屏幕右边开始算宽度

        side                        = cl_gui_docking_container=>dock_at_left       "ALV贴屏幕左边，从左边算屏幕宽度，

        extension                   = 900                                          "屏幕宽度

*        style                       = cl_gui_control=>ws_child                     "可选参数，设置ALV是否可用手动拖动大小

      EXCEPTIONS

        cntl_error                  = 1

        cntl_system_error           = 2

        create_error                = 3

        lifetime_error              = 4

        lifetime_dynpro_dynpro_link = 5

        OTHERS                      = 6.

    IF sy-subrc <> 0.

      MESSAGE s001(00) WITH '屏幕初始化失败'.

      LEAVE LIST-PROCESSING.

    ENDIF.

*添加自定义工具条

    PERFORM frm_set_alv_toolbar.

*

    CREATE OBJECT g_alv_grid

      EXPORTING

        i_parent = alv_ctner.

*构建显示字段样式

    PERFORM frm_build_fieldcat.

    "Set/Reset Ready for Input Status

    CALL METHOD g_alv_grid->set_ready_for_input

      EXPORTING

        i_ready_for_input = 1.

* layout 设定样式

    CLEAR ls_layout.

    ls_layout-cwidth_opt = 'X'.     "优化列宽

    CLEAR l_disvariant.

    l_disvariant-report = sy-repid. "当前程序

* event  绑定事件

    CREATE OBJECT g_event.

    SET HANDLER g_event->toolbar             FOR g_alv_grid.

    SET HANDLER g_event->handle_data_changed FOR g_alv_grid.

*这里是下拉框相关逻辑…………………………………………

  DATA: lt_dropdown TYPE lvc_t_drop,

      ls_dropdown TYPE lvc_s_drop.

  "第一个下拉框：AAA字段

  ls_dropdown-handle = '1'.                          "指定下拉框句柄

  ls_dropdown-value = '1 春天'.

  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '1'.

  ls_dropdown-value = '2 夏天'.

  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '1'.

  ls_dropdown-value = '3 冬天'.

  APPEND ls_dropdown TO lt_dropdown.

  "第二个下拉框：BBB字段

  ls_dropdown-handle = '2'.                            "指定下拉框句柄

  ls_dropdown-value = '0 启用'.

  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.

  ls_dropdown-value = '1 禁止'.

  APPEND ls_dropdown TO lt_dropdown.

  CALL METHOD g_alv_grid->set_drop_down_table        "调用alv类的下拉框方法

    EXPORTING

      it_drop_down = lt_dropdown.

*end………………………………………………………………

*   "显示内表数据

    CALL METHOD g_alv_grid->set_table_for_first_display

      EXPORTING

        is_layout            = ls_layout

        is_variant           = l_disvariant

        it_toolbar_excluding = gt_tools

      CHANGING

        it_fieldcatalog      = it_fieldcatalog[]

        it_outtab            = g_it_show[].

如上即可

有时候有你会发现点保存的时候报错：

比如你有个状态字段，在库表里是char1类型的，

你下拉框里显示：0：启用  1：禁用

当你定义alv字段的时候，直接参考库表的char1类型

点保存的时候会提示：

“条目0 启用 过长  大于1”

这个时候，在定义alv子段的时候，不参考char1类型

而是定义成string

就可以了