ooalv自定义按钮、单击、双击、列编辑切换的事件用法

1、需新建屏幕1001 并画container：'CONT1'
2、需新建屏幕1002 并画container：'CONT2'
3、定义屏幕1001、1002的ok_code和逻辑流
4、定义工具栏


程序代码：

1. TABLES t001w.
   
2. 
   
3. TYPES:BEGIN OF typ_t001w ,
   
4.      werks  TYPE t001w-werks,
   
5.      name1  TYPE t001w-name1,
   
6.      werks2 TYPE t001w-werks,
   
7.   rowcolor  TYPE char10,
   
8.   zcheckbox TYPE c,       "LAYOUT-CHECBOX   =  'ZCHECKBOX'.
   
9. *  zflag     TYPE c,      "LAYOUT-BOX_FNAME = 'ZFLAG'.
   
10.   zicon     TYPE char10, "LAYOUT-ICON      = 'ZICON'  图标需要显示的
    
11.      END OF typ_t001w.
    
12. 
    
13. TYPES:BEGIN OF typ_smf ,
    
14.      werks  TYPE t001w-werks,
    
15.      name1  TYPE t001w-name1,
    
16.      END OF typ_smf.
    
17. 
    
18. DATA:i_t001w  TYPE TABLE OF typ_t001w,"""""第一次ALV内表
    
19.      i_detail TYPE TABLE OF typ_smf, """""单击ALV内表列ZICON显示的明细ALV内表
    
20.      i_smf    TYPE TABLE OF typ_smf.""""SF内表
    
21. 
    
22. DATA:fieldcat TYPE lvc_t_fcat,
    
23.      grid TYPE REF TO cl_gui_alv_grid,  "alv控件名
    
24.      grid2 TYPE REF TO cl_gui_alv_grid,  "alv控件名
    
25.      g_container TYPE scrfname VALUE 'CONT1',"重新定义本地容器对象名
    
26.      g_container2 TYPE scrfname VALUE 'CONT2',"重新定义本地容器对象名
    
27.      is_layout TYPE lvc_s_layo,
    
28.      ps_layout TYPE lvc_s_layo,
    
29.      g_custom_container TYPE REF TO cl_gui_custom_container,
    
30.      g_custom_container2 TYPE REF TO cl_gui_custom_container.
    
31. 
    
32. DATA: ui_functions TYPE ui_functions. "隐藏按钮的内表
    
33. *********ALV上事件捕捉类
    
34. DATA:gs_toolbar TYPE stb_button.             "按钮
    
35. CLASS alv_event_receiver DEFINITION DEFERRED. "声明类对象
    
36. *----------------------------------------------------------------------*
    
37. *       CLASS alv_event_receiver DEFINITION
    
38. *----------------------------------------------------------------------*
    
39. *
    
40. *----------------------------------------------------------------------*
    
41. CLASS alv_event_receiver DEFINITION.                  "声明类成员可见性
    
42.   PUBLIC SECTION.                                      "定义相关类成员可以被程序中的所有对象调用
    
43.     CLASS-METHODS:                                     "静态方法
    
44.       handle_toolbar                                   "初始化工具栏对象事件，如增加按钮并设定其属性
    
45.         FOR EVENT toolbar OF cl_gui_alv_grid
    
46.           IMPORTING e_object e_interactive,
    
47. 
    
48.        handle_menu_button                              "用于在下拉菜单中增加选项
    
49.          FOR EVENT menu_button OF cl_gui_alv_grid
    
50.           IMPORTING e_object e_ucomm,
    
51. 
    
52.        handle_user_command                             "工具栏中的按钮的单击事件
    
53.           FOR EVENT user_command OF cl_gui_alv_grid
    
54.             IMPORTING e_ucomm,
    
55. 
    
56.        handle_hotspot_click
    
57.           FOR EVENT hotspot_click OF cl_gui_alv_grid    "屏幕中的单击事件，可以具体到某行某列，需要设置热点
    
58.             IMPORTING  e_row_id e_column_id es_row_no,
    
59. 
    
60.        handle_double_click
    
61.           FOR EVENT double_click OF cl_gui_alv_grid     "屏幕中的双击事件，可以具体到某行某列，即使设置热点也必须双击
    
62.             IMPORTING e_row e_column es_row_no.
    
63. ENDCLASS.                    "alv_event_receiver DEFINITION
    
64. *&---------------------------------------------------------------------*
    
65. *&       Class (Implementation)  alv_event_receiver
    
66. *&---------------------------------------------------------------------*
    
67. *        Text
    
68. *----------------------------------------------------------------------*
    
69. CLASS alv_event_receiver IMPLEMENTATION.  "实现类方法
    
70.   METHOD handle_toolbar.
    
71.     gs_toolbar-function =  'B_SUM'.       "为按钮分配功能码
    
72.     gs_toolbar-icon     =  icon_display.  "为按钮分配图标
    
73.     gs_toolbar-text     =  '总行数'.      "为按钮分配文本
    
74.     gs_toolbar-butn_type = '0'.           "定义按钮类型，不填时默认为0
    
75.     APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏
    
76. 
    
77.     gs_toolbar-function =  'B_PRINT'.       "为按钮分配功能码
    
78.     gs_toolbar-icon     =  icon_import.  "为按钮分配图标
    
79.     gs_toolbar-text     =  '转储订单打印'.      "为按钮分配文本
    
80.     gs_toolbar-checked  = 'X'.
    
81.     gs_toolbar-butn_type = '0'.           "定义按钮类型，不填时默认为0
    
82.     APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏
    
83. 
    
84.     gs_toolbar-function =  'B_LIST'.      "为按钮分配功能码
    
85.     gs_toolbar-quickinfo = '自定义下拉菜单'.
    
86.     gs_toolbar-icon     =  icon_biw_report_view.  "为按钮分配图标
    
87.     gs_toolbar-text     =  '下拉菜单'.      "为按钮分配文本
    
88.     gs_toolbar-butn_type = '1'.           "定义按钮类型
    
89.     APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏
    
90. 
    
91.     gs_toolbar-function =  'B_EDIT'.       "为按钮分配功能码
    
92.     gs_toolbar-icon     =  icon_change.  "为按钮分配图标
    
93.     gs_toolbar-text     =  '切换编辑状态'.      "为按钮分配文本
    
94.     gs_toolbar-checked  = 'X'.
    
95.     gs_toolbar-butn_type = '0'.           "定义按钮类型，不填时默认为0
    
96.     APPEND gs_toolbar TO e_object->mt_toolbar. "添加按钮到工具栏
    
97.   ENDMETHOD.                    "handle_toolbar
    
98.   METHOD handle_menu_button.
    
99.     IF e_ucomm = 'B_LIST'.
    
100.       CALL METHOD e_object->add_function
     
101.         EXPORTING
     
102.           icon  = icon_display
     
103.           fcode = 'B_SUM'
     
104.           text  = '显示ALV总数'.
     
105.     ENDIF.
     
106.   ENDMETHOD.                    "handle_menu_button
     
107.   METHOD handle_user_command.
     
108.     DATA sum TYPE i.
     
109.     DATA text TYPE string.
     
110.     DATA: lwa_t001w LIKE LINE OF i_t001w.
     
111.     DATA: lwa_smf   LIKE LINE OF i_smf.
     
112. 
     
113.     CASE e_ucomm.
     
114.       WHEN  'B_SUM'.
     
115.         DESCRIBE TABLE i_t001w[] LINES sum.
     
116.         text = sum.
     
117.         CONCATENATE  '当前表格中数据的总行数:' text  INTO text.
     
118.         MESSAGE  text  TYPE 'I'. "为何消息类型为 E 时运行时显示A类型，异常终止到初始界面
     
119.       WHEN 'B_PRINT'.
     
120.         LOOP AT i_t001w  INTO lwa_t001w WHERE  zcheckbox = 'X'.
     
121.           lwa_smf-werks = lwa_t001w-werks.
     
122.           lwa_smf-name1 = lwa_t001w-name1.
     
123.           APPEND  lwa_smf TO i_smf.
     
124.           CLEAR :lwa_t001w,lwa_smf.
     
125.         ENDLOOP.
     
126.         IF i_smf[] IS INITIAL.
     
127.           MESSAGE '请至少选择一行数据区打印！' TYPE 'E'. "E类型消息会转化为A类型，很蛋疼，求破！
     
128.         ELSE.
     
129.           PERFORM frm_print_data.  "这个没具体写。
     
130.         ENDIF.
     
131.       WHEN 'B_EDIT'.
     
132.         IF grid->is_ready_for_input( ) EQ 0.
     
133.           CALL METHOD grid->set_ready_for_input
     
134.             EXPORTING
     
135.               i_ready_for_input = 1.
     
136.         ELSE.
     
137.           CALL METHOD grid->set_ready_for_input
     
138.             EXPORTING
     
139.               i_ready_for_input = 0.
     
140.         ENDIF.
     
141.       WHEN OTHERS.
     
142.     ENDCASE.
     
143.   ENDMETHOD.                    "handle_user_command
     
144.   "ALV内表展示处单击事件捕捉，需要设置热点对单击列字段
     
145.   METHOD handle_hotspot_click.
     
146.     DATA:lwa_t001w LIKE LINE OF  i_t001w.
     
147.     READ TABLE i_t001w INTO lwa_t001w INDEX es_row_no-row_id. "判断行号
     
148.     CASE e_column_id-fieldname . "判断列名
     
149.       WHEN 'NAME1'.
     
150.         CALL TRANSACTION 'ME51N' AND SKIP FIRST SCREEN. "随便写的
     
151.       WHEN 'ZICON'.         "
     
152.         SELECT werks
     
153.                name1
     
154.           INTO TABLE i_detail
     
155.           FROM t001w
     
156.           WHERE werks = lwa_t001w-werks2.
     
157.         CLEAR lwa_t001w.
     
158.         IF sy-subrc NE 0.
     
159.           MESSAGE  'No result finding!' TYPE 'I'.
     
160.         ELSE.
     
161.           CALL SCREEN 1002.
     
162.         ENDIF.
     
163.       WHEN OTHERS.
     
164.     ENDCASE.
     
165. *    MESSAGE i001(00) WITH '当前行：' es_row_no-row_id '，航线代码：' ls_lt001w-werks.
     
166.   ENDMETHOD.                    "handle_hotspot_click
     
167.   "ALV内表展示处双击击事件捕捉，如果设置热点双击不起作用
     
168.   METHOD handle_double_click.
     
169.     DATA:lwa_t001w LIKE LINE OF i_t001w.
     
170.     READ TABLE i_t001w INTO lwa_t001w INDEX es_row_no-row_id.
     
171.     IF e_column-fieldname = 'WERKS'.
     
172.       SET PARAMETER ID 'AUN' FIELD lwa_t001w-werks.
     
173.       CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
     
174.     ENDIF.
     
175.   ENDMETHOD.                    "handle_double_click
     
176. 
     
177. ENDCLASS.               "alv_event_receiver
     
178. START-OF-SELECTION.
     
179.   CALL SCREEN 1001.
     
180. 
     
181. *&---------------------------------------------------------------------*
     
182. *&      Module  STATUS_1001  OUTPUT
     
183. *&---------------------------------------------------------------------*
     
184. *       text
     
185. *----------------------------------------------------------------------*
     
186. MODULE status_1001 OUTPUT.
     
187.   SET PF-STATUS 'T001'.
     
188. *  SET TITLEBAR 'xxx'.
     
189. ENDMODULE.                 " STATUS_1001  OUTPUT
     
190. *&---------------------------------------------------------------------*
     
191. *&      Module  USER_COMMAND_1001  INPUT
     
192. *&---------------------------------------------------------------------*
     
193. *       text
     
194. *----------------------------------------------------------------------*
     
195. MODULE user_command_1001 INPUT.
     
196.   FIELD-SYMBOLS <field> TYPE typ_t001w .
     
197.   DATA: i TYPE i VALUE 0.
     
198.   DATA ok_code TYPE sy-ucomm.
     
199.   ok_code = sy-ucomm.
     
200.   CLEAR sy-ucomm.
     
201. 
     
202.   CASE ok_code.
     
203.     WHEN 'BACK'.
     
204.       LEAVE TO SCREEN 0.
     
205.     WHEN 'EDIT'.
     
206.       IF grid->is_ready_for_input( ) EQ 0.
     
207.         CALL METHOD grid->set_ready_for_input
     
208.           EXPORTING
     
209.             i_ready_for_input = 1.
     
210.       ELSE.
     
211.         CALL METHOD grid->set_ready_for_input
     
212.           EXPORTING
     
213.             i_ready_for_input = 0.
     
214.       ENDIF.
     
215.     WHEN 'EXECU'.
     
216.       SELECT * FROM t001w
     
217.          INTO CORRESPONDING FIELDS OF TABLE i_t001w.
     
218.       LOOP AT  i_t001w  ASSIGNING <field>  .
     
219.         <field>-werks2 = <field>-werks.
     
220.         <field>-zicon  = '@16@'.  "图标
     
221.       ENDLOOP.
     
222. 
     
223.       IF g_custom_container IS INITIAL.
     
224.         PERFORM exclude_tb_functions CHANGING ui_functions. "隐藏某些按钮
     
225.         PERFORM frm_layout_set.
     
226.         PERFORM frm_fieldcat_set.
     
227.         PERFORM alv_show.
     
228.       ELSE.
     
229.         CALL METHOD grid->refresh_table_display. "刷新
     
230.       ENDIF.
     
231.     WHEN OTHERS.
     
232.   ENDCASE.
     
233. ENDMODULE.                 " USER_COMMAND_1001  INPUT
     
234. *&---------------------------------------------------------------------*
     
235. *&      Form  ALV_SHOW
     
236. *&---------------------------------------------------------------------*
     
237. *       text
     
238. *----------------------------------------------------------------------*
     
239. *  -->  p1        text
     
240. *  <--  p2        text
     
241. *----------------------------------------------------------------------*
     
242. FORM alv_show .
     
243.   CREATE OBJECT g_custom_container                        "创建容器对象
     
244.         EXPORTING container_name = g_container.
     
245.   CREATE OBJECT grid                                      "创建ALV对象
     
246.         EXPORTING i_parent = g_custom_container.
     
247.   CALL METHOD grid->register_edit_event                   "可编辑回传方法
     
248.     EXPORTING
     
249.       i_event_id = grid->mc_evt_modified.
     
250.   CALL METHOD grid->set_table_for_first_display
     
251.     EXPORTING
     
252. *     I_BUFFER_ACTIVE      =
     
253. *     I_BYPASSING_BUFFER   =
     
254. *     I_CONSISTENCY_CHECK  =
     
255. *     I_STRUCTURE_NAME     = 'T001W'
     
256. *     IS_VARIANT           =
     
257.       i_save               = 'X'
     
258. *     I_DEFAULT            = 'X'
     
259.       is_layout            = is_layout
     
260. *     IS_PRINT             =
     
261. *     IT_SPECIAL_GROUPS    =
     
262.       it_toolbar_excluding = ui_functions[]
     
263. *     IT_HYPERLINK         =
     
264. *     IT_ALV_GRAPHICS      =
     
265. *     IT_EXCEPT_QINFO      =
     
266. *     IR_SALV_ADAPTER      =
     
267.     CHANGING
     
268.       it_outtab            = i_t001w[]
     
269.       it_fieldcatalog      = fieldcat[].
     
270. *           IT_SORT                       =
     
271. *           IT_FILTER                     =
     
272. *         EXCEPTIONS
     
273. *           INVALID_PARAMETER_COMBINATION = 1
     
274. *           PROGRAM_ERROR                 = 2
     
275. *           TOO_MANY_LINES                = 3
     
276. *           others                        = 4
     
277.   .
     
278. 
     
279. ******注册ALV中引用的事件
     
280.   SET HANDLER alv_event_receiver=>handle_toolbar
     
281.               alv_event_receiver=>handle_menu_button
     
282.               alv_event_receiver=>handle_user_command
     
283.               alv_event_receiver=>handle_hotspot_click
     
284.               alv_event_receiver=>handle_double_click
     
285.            FOR ALL INSTANCES.
     
286. ****调用方法激活自定义工具对象
     
287.   CALL METHOD grid->set_toolbar_interactive.
     
288. ENDFORM.                    " ALV_SHOW
     
289. 
     
290. *&---------------------------------------------------------------------*
     
291. *&      Form  exclude_tb_functions
     
292. *&---------------------------------------------------------------------*
     
293. *       text
     
294. *----------------------------------------------------------------------*
     
295. *      -->PT_EXCLUDE text
     
296. *----------------------------------------------------------------------*
     
297. FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions .
     
298.   DATA ls_exclude TYPE ui_func.
     
299.   ls_exclude = cl_gui_alv_grid=>mc_fc_filter . "过滤器
     
300.   APPEND ls_exclude TO pt_exclude.
     
301.   ls_exclude = cl_gui_alv_grid=>mc_fc_current_variant . "布局更改
     
302.   APPEND ls_exclude TO pt_exclude.
     
303.   ls_exclude = cl_gui_alv_grid=>mc_fc_average ."平均值
     
304.   APPEND ls_exclude TO pt_exclude.
     
305.   ls_exclude = cl_gui_alv_grid=>mc_mb_sum ."求和
     
306.   APPEND ls_exclude TO pt_exclude.
     
307.   ls_exclude = cl_gui_alv_grid=>mc_mb_export .   "导出
     
308.   APPEND ls_exclude TO pt_exclude.
     
309.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut .        "剪切
     
310.   APPEND ls_exclude TO pt_exclude.
     
311.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row . "删除行
     
312.   APPEND ls_exclude TO pt_exclude.
     
313.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row . "插入行
     
314.   APPEND ls_exclude TO pt_exclude.
     
315.   ls_exclude = cl_gui_alv_grid=>mc_fc_refresh .  "刷新
     
316.   APPEND ls_exclude TO pt_exclude.
     
317.   ls_exclude = cl_gui_alv_grid=>mc_fc_find ."查找
     
318.   APPEND ls_exclude TO pt_exclude.
     
319.   ls_exclude = cl_gui_alv_grid=>mc_fc_sort_asc .  "升序排列
     
320.   APPEND ls_exclude TO pt_exclude.
     
321.   ls_exclude = cl_gui_alv_grid=>mc_fc_sort_dsc .  "降序排列
     
322.   APPEND ls_exclude TO pt_exclude.
     
323.   ls_exclude = cl_gui_alv_grid=>mc_fc_views .   "视图
     
324.   APPEND ls_exclude TO pt_exclude.
     
325.   ls_exclude = cl_gui_alv_grid=>mc_fc_print ."打印
     
326.   APPEND ls_exclude TO pt_exclude.
     
327.   ls_exclude = cl_gui_alv_grid=>mc_fc_detail . "详细按钮
     
328.   APPEND ls_exclude TO pt_exclude.
     
329.   ls_exclude = cl_gui_alv_grid=>mc_fc_graph . "显示图形
     
330.   APPEND ls_exclude TO pt_exclude.
     
331.   ls_exclude = cl_gui_alv_grid=>mc_fc_info . "最终用户文档
     
332.   APPEND ls_exclude TO pt_exclude.
     
333.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row . "附加行
     
334.   APPEND ls_exclude TO pt_exclude.
     
335.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row . "复制行
     
336.   APPEND ls_exclude TO pt_exclude.
     
337.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy . "复制文本
     
338.   APPEND ls_exclude TO pt_exclude.
     
339.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo . "撤消
     
340.   APPEND ls_exclude TO pt_exclude.
     
341. ENDFORM .                    "exclude_tb_functions
     
342. *&---------------------------------------------------------------------*
     
343. *&      Form  FRM_LAYOUT_SET
     
344. *&---------------------------------------------------------------------*
     
345. *       text
     
346. *----------------------------------------------------------------------*
     
347. *  -->  p1        text
     
348. *  <--  p2        text
     
349. *----------------------------------------------------------------------*
     
350. FORM frm_layout_set .
     
351.   is_layout-zebra = 'X' .
     
352.   is_layout-grid_title = '仓储转储订单跟踪及打印' .
     
353.   is_layout-smalltitle = 'X' .  "ALV 控制: 标题大小
     
354.   is_layout-cwidth_opt = 'X' . "优化列宽
     
355. *   is_layout-no_toolbar = 'X' . "隐藏按钮
     
356.   is_layout-sel_mode = 'A' . "flag选择方式 A：行和列的选择,无法选择单元格  多行，多列  B
     
357.   is_layout-info_fname = 'ROWCOLOR'.
     
358. ENDFORM.                    " FRM_LAYOUT_SET
     
359. *&---------------------------------------------------------------------*
     
360. *&      Form  FRM_FIELDCAT_SET
     
361. *&---------------------------------------------------------------------*
     
362. *       text
     
363. *----------------------------------------------------------------------*
     
364. *  -->  p1        text
     
365. *  <--  p2        text
     
366. *----------------------------------------------------------------------*
     
367. FORM frm_fieldcat_set .
     
368.   DATA ls_fcat TYPE lvc_s_fcat .
     
369.   CLEAR ls_fcat .
     
370.   ls_fcat-fieldname = 'ZCHECKBOX' .
     
371.   ls_fcat-coltext = '选择'.
     
372. *  ls_fcat-emphasize = 'C601' ."列颜色控制
     
373.   ls_fcat-checkbox   = 'X'.
     
374.   ls_fcat-edit       = 'X'.
     
375.   APPEND ls_fcat TO fieldcat .
     
376. 
     
377.   CLEAR ls_fcat .
     
378.   ls_fcat-fieldname = 'WERKS' .
     
379.   ls_fcat-inttype = 'C' .
     
380.   ls_fcat-outputlen = '4' .
     
381.   ls_fcat-coltext = '工厂'."Carrier ID.列标题
     
382.   ls_fcat-seltext = 'AAA' ."ALV 控制: 对话功能的列标识符
     
383.   ls_fcat-emphasize = 'C601' ."列颜色控制
     
384. *  ls_fcat-hotspot   = 'X'.  “不能设置hotspot  否则double click事件无效
     
385.   APPEND ls_fcat TO fieldcat .
     
386. 
     
387.   CLEAR ls_fcat .
     
388.   ls_fcat-fieldname = 'NAME1' .
     
389.   ls_fcat-ref_table = 'T001W' .
     
390.   ls_fcat-ref_field = 'NAME1' .
     
391.   ls_fcat-outputlen = '30' .
     
392.   ls_fcat-coltext = '工厂名称' .
     
393.   ls_fcat-hotspot   = 'X'.
     
394.   APPEND ls_fcat TO fieldcat .
     
395. 
     
396.   CLEAR ls_fcat .
     
397.   ls_fcat-fieldname = 'WERKS2' .
     
398.   ls_fcat-inttype = 'C' .
     
399.   ls_fcat-outputlen = '4' .
     
400.   ls_fcat-coltext = '工厂2号'."Carrier ID.列标题
     
401.   ls_fcat-seltext = 'AAA' ."ALV 控制: 对话功能的列标识符
     
402.   ls_fcat-emphasize = 'C601' ."列颜色控制
     
403.   ls_fcat-edit    = 'X'.
     
404.   APPEND ls_fcat TO fieldcat .
     
405. 
     
406.   CLEAR ls_fcat .
     
407.   ls_fcat-fieldname = 'ZICON' .
     
408.   ls_fcat-coltext = '交货明细凭证'."Carrier ID.列标题
     
409.   ls_fcat-seltext = 'AAA' ."ALV 控制: 对话功能的列标识符
     
410.   ls_fcat-icon    = 'X'.
     
411.   ls_fcat-hotspot   = 'X'.
     
412.   APPEND ls_fcat TO fieldcat .
     
413.   CLEAR ls_fcat .
     
414. ENDFORM.                    " FRM_FIELDCAT_SET
     
415. *&---------------------------------------------------------------------*
     
416. *&      Form  FRM_PRINT_DATA
     
417. *&---------------------------------------------------------------------*
     
418. *       text
     
419. *----------------------------------------------------------------------*
     
420. *  -->  p1        text
     
421. *  <--  p2        text
     
422. *----------------------------------------------------------------------*
     
423. FORM frm_print_data .
     
424. 
     
425. ENDFORM.                    " FRM_PRINT_DATA
     
426. *&---------------------------------------------------------------------*
     
427. *&      Module  STATUS_1002  OUTPUT
     
428. *&---------------------------------------------------------------------*
     
429. *       text
     
430. *----------------------------------------------------------------------*
     
431. MODULE status_1002 OUTPUT.
     
432.   SET PF-STATUS 'T001'.
     
433. *  SET TITLEBAR 'xxx'.
     
434.   PERFORM  frm_alv_show_detail.
     
435. ENDMODULE.                 " STATUS_1002  OUTPUT
     
436. *&---------------------------------------------------------------------*
     
437. *&      Form  FRM_ALV_SHOW_DETAIL
     
438. *&---------------------------------------------------------------------*
     
439. *       text
     
440. *----------------------------------------------------------------------*
     
441. *  -->  p1        text
     
442. *  <--  p2        text
     
443. *----------------------------------------------------------------------*
     
444. FORM frm_alv_show_detail .
     
445.   DATA: ls_fcat  TYPE lvc_s_fcat ,
     
446.        fieldcat2 TYPE lvc_t_fcat.
     
447.   ls_fcat-fieldname = 'WERKS' .
     
448.   ls_fcat-coltext = '工厂'."Carrier ID.列标题
     
449.   APPEND ls_fcat TO fieldcat2 .
     
450.   CLEAR ls_fcat .
     
451.   ls_fcat-fieldname = 'NAME1' .
     
452.   ls_fcat-coltext = '工厂名称'.
     
453.   APPEND ls_fcat TO fieldcat2 .
     
454.   CLEAR ls_fcat .
     
455. 
     
456.   ps_layout-zebra = 'X' .
     
457.   ps_layout-grid_title = '交货明细凭证' .
     
458.   ps_layout-smalltitle = 'X' .  "ALV 控制: 标题大小
     
459.   ps_layout-cwidth_opt = 'X' . "优化列宽
     
460.   ps_layout-no_toolbar = 'X' . "隐藏按钮
     
461. *  ps_layout-SEL_MODE = 'A' . "flag选择方式 A：行和列的选择,无法选择单元格  多行，多列  B
     
462. *  ps_layout-info_fname = 'ROWCOLOR'.
     
463. 
     
464.   IF g_custom_container2 IS INITIAL.
     
465.     CREATE OBJECT g_custom_container2                        "创建容器对象
     
466.      EXPORTING container_name = g_container2.
     
467.     CREATE OBJECT grid2                                      "创建ALV对象
     
468.      EXPORTING i_parent = g_custom_container2.
     
469.   ELSE.
     
470.     CALL METHOD grid2->refresh_table_display. "刷新
     
471.   ENDIF.
     
472.   CALL METHOD grid2->set_table_for_first_display
     
473.     EXPORTING
     
474. *     I_BUFFER_ACTIVE      =
     
475. *     I_BYPASSING_BUFFER   =
     
476. *     I_CONSISTENCY_CHECK  =
     
477. *     I_STRUCTURE_NAME     = 'T001W'
     
478. *     IS_VARIANT           =
     
479.       i_save               = 'X'
     
480. *     I_DEFAULT            = 'X'
     
481.       is_layout            = ps_layout
     
482. *     IS_PRINT             =
     
483. *     IT_SPECIAL_GROUPS    =
     
484. *     IT_TOOLBAR_EXCLUDING =
     
485. *     IT_HYPERLINK         =
     
486. *     IT_ALV_GRAPHICS      =
     
487. *     IT_EXCEPT_QINFO      =
     
488. *     IR_SALV_ADAPTER      =
     
489.     CHANGING
     
490.       it_outtab            = i_detail[]
     
491.       it_fieldcatalog      = fieldcat2[].
     
492. *           IT_SORT                       =
     
493. *           IT_FILTER                     =
     
494. *         EXCEPTIONS
     
495. *           INVALID_PARAMETER_COMBINATION = 1
     
496. *           PROGRAM_ERROR                 = 2
     
497. *           TOO_MANY_LINES                = 3
     
498. *           others                        = 4
     
499.   .
     
500. ENDFORM.                    " FRM_ALV_SHOW_DETAIL
     
501. *&---------------------------------------------------------------------*
     
502. *&      Module  USER_COMMAND_1002  INPUT
     
503. *&---------------------------------------------------------------------*
     
504. *       text
     
505. *----------------------------------------------------------------------*
     
506. MODULE user_command_1002 INPUT.
     
507.   DATA ok_code2 TYPE sy-ucomm.
     
508.   ok_code2 = sy-ucomm.
     
509.   CLEAR sy-ucomm.
     
510.   CASE ok_code2.
     
511.     WHEN 'BACK'.
     
512.       LEAVE TO SCREEN 0.
     
513.   ENDCASE.
     
514. ENDMODULE.                 " USER_COMMAND_1002  INPUT

复制代码

程序执行效果：

点击“明细” 跳入第二屏，更多按钮响应效果自己体验


SAP系统的ooalv的学习标准程序：
BCALV_EDIT_01切换 显示<-->修改 模式
BCALV_EDIT_02 修改单元格
BCALV_EDIT_03 修改的单元格校验
BCALV_EDIT_04 删除行, 添加行, 检查并保存
BCALV_EDIT_05 可编辑复选框，双击复选框单元格，更改复选框编辑状态
BCALV_EDIT_06 列级别的下拉清单框
BCALV_EDIT_07 单元格级别的下拉清单框
BCALV_EDIT_08 集成非标准的F4帮助

谢谢分享！

厉害了，谢谢分享