OOnbsp;ALVnbsp;实现下拉框_综合

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 春天'.