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

时间：2024-05-22 19:56:53
1、需新建屏幕1001 并画container：'CONT1'
2、需新建屏幕1002 并画container：'CONT2'
3、定义屏幕1001、1002的ok_code和逻辑流
4、定义工具栏
ooalv自定义按钮、单击、双击、列编辑切换的事件用法 

程序代码：
  1. TABLES t001w.

  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.

  13. TYPES:BEGIN OF typ_smf ,
  14.      werks  TYPE t001w-werks,
  15.      name1  TYPE t001w-name1,
  16.      END OF typ_smf.

  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内表

  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.

  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,

  48.        handle_menu_button                              "用于在下拉菜单中增加选项
  49.          FOR EVENT menu_button OF cl_gui_alv_grid
  50.           IMPORTING e_object e_ucomm,

  52.        handle_user_command                             "工具栏中的按钮的单击事件
  53.           FOR EVENT user_command OF cl_gui_alv_grid
  54.             IMPORTING e_ucomm,

  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,

  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. "添加按钮到工具栏

  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. "添加按钮到工具栏

  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. "添加按钮到工具栏

  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.

  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

  177. ENDCLASS.               "alv_event_receiver
  178. START-OF-SELECTION.
  179.   CALL SCREEN 1001.

  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.

  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  = '@[email protected]'.  "图标
  221.       ENDLOOP.

  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.   .

  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

  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 .

  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 .

  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 .

  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 .

  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 .

  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 .

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

  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
复制代码


程序执行效果：
ooalv自定义按钮、单击、双击、列编辑切换的事件用法 
点击“明细” 跳入第二屏，更多按钮响应效果自己体验
ooalv自定义按钮、单击、双击、列编辑切换的事件用法 

sap系统的ooalv的学习标准程序：
BCALV_EDIT_01
BCALV_EDIT_02
BCALV_EDIT_03
BCALV_EDIT_04
BCALV_EDIT_05 双击编辑单元格，更改编辑状态（ooalv 单元格控制）
BCALV_EDIT_06
BCALV_EDIT_07
BCALV_EDIT_08

相关文章