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

就可以了