ABAP - SALV教程08 列設置熱點及綁定點擊事件

??實現思路：將列設置成熱點，熱點列是可點擊的，再給SALV實例對象注冊點擊事件即可，一般作用于點擊單號跳轉到前臺等功能

 "設置熱點方法METHODS:set_hotspot CHANGING co_alv TYPE REF TO cl_salv_table...."事件處理方法METHODS:on_link_click FOR EVENT link_click OF cl_salv_events_tableIMPORTINGrowcolumn.METHOD set_hotspot.DATA lo_col TYPE REF TO cl_salv_column_table."獲取所有列對象的引用DATA(lo_cols) = co_alv->get_columns( ).TRY."獲取群體列對象中VBELN列轉換成CL_SALV_COLUMN_TABLE類型lo_col ?= lo_cols->get_column( 'VBELN' )."調用方法將列設置成熱點lo_col->set_cell_type( EXPORTING value = if_salv_c_cell_type=>hotspot ).CATCH cx_salv_data_error .ENDTRY."獲取SALV事件對象的引用DATA(lo_events) = co_alv->get_event( )." 設定EVENT HANDLERSET HANDLER me->on_link_click FOR lo_events.ENDMETHOD.METHOD on_link_click.READ TABLE me->mt_data INTO DATA(lw_data) INDEX row.IF sy-subrc = 0.MESSAGE '您點擊了第' && row &&'行的' && lw_data-vbeln TYPE 'I'.ENDIF.ENDMETHOD.

實現效果?

完整代碼?

CLASS lcl_model DEFINITION.PUBLIC SECTION.TYPES:BEGIN OF TY_dATA,vbeln TYPE vbak-vbeln,erdat TYPE erdat,erzet TYPE erzet,ernam TYPE ernam,auart TYPE auart.TYPES:END  OF ty_data.DATA mt_data TYPE TABLE OF ty_data.DATA mo_salv TYPE REF TO cl_salv_table."獲取數據的方法METHODS get_data."展示SALV的方法METHODS alv_show.PRIVATE SECTION.METHODS:set_status  CHANGING co_alv TYPE REF TO cl_salv_table.METHODS:set_layout  CHANGING co_alv TYPE REF TO cl_salv_table."設置熱點方法METHODS:set_hotspot CHANGING co_alv TYPE REF TO cl_salv_table."事件處理方法METHODS:on_link_click FOR EVENT link_click OF cl_salv_events_tableIMPORTINGrowcolumn.ENDCLASS.CLASS lcl_model IMPLEMENTATION.METHOD get_data.SELECT vbeln erdat erzet ernam auartINTO TABLE mt_dataFROM vbakUP TO 20 ROWS.ENDMETHOD.METHOD alv_show.DATA: lx_msg TYPE REF TO cx_salv_msg.TRY.cl_salv_table=>factory(IMPORTINGr_salv_table = mo_salvCHANGINGt_table      = mt_data ).CATCH cx_salv_msg INTO lx_msg.ENDTRY."要生成SALV實例才能執行一下方法me->set_status( CHANGING co_alv = mo_salv ).me->set_layout( CHANGING co_alv = mo_salv ).me->set_hotspot( CHANGING co_alv = mo_salv ).mo_salv->display( ).ENDMETHOD.METHOD set_status.DATA(lo_functions) = co_alv->get_functions( )."cl_salv_functions_list類型的實例對象的添加狀態方法lo_functions->set_all( abap_true )."lo_functions->set_default( abap_true ).ENDMETHOD.METHOD set_layout.DATA: lo_display TYPE REF TO cl_salv_display_settings.
*   取得顯示對象lo_display = co_alv->get_display_settings( ).*   設置ZEBRA顯示lo_display->set_striped_pattern( 'X' ).
*   設置Titlelo_display->set_list_header( '銷售訂單報表' ).ENDMETHOD.METHOD set_hotspot.DATA lo_col TYPE REF TO cl_salv_column_table."獲取所有列對象的引用DATA(lo_cols) = co_alv->get_columns( ).TRY."獲取群體列對象中VBELN列轉換成CL_SALV_COLUMN_TABLE類型lo_col ?= lo_cols->get_column( 'VBELN' )."調用方法將列設置成熱點lo_col->set_cell_type( EXPORTING value = if_salv_c_cell_type=>hotspot ).CATCH cx_salv_data_error .ENDTRY."獲取SALV事件對象的引用DATA(lo_events) = co_alv->get_event( )." 設定EVENT HANDLERSET HANDLER me->on_link_click FOR lo_events.ENDMETHOD.METHOD on_link_click.READ TABLE me->mt_data INTO DATA(lw_data) INDEX row.IF sy-subrc = 0.MESSAGE '您點擊了第' && row &&'行的' && lw_data-vbeln TYPE 'I'.ENDIF.ENDMETHOD.
ENDCLASS.START-OF-SELECTION.DATA(lo_model) = NEW lcl_model( ).lo_model->get_data( ).lo_model->alv_show( ).

本文來自互聯網用戶投稿，該文觀點僅代表作者本人，不代表本站立場。本站僅提供信息存儲空間服務，不擁有所有權，不承擔相關法律責任。
如若轉載，請注明出處：http://www.pswp.cn/news/715929.shtml
繁體地址，請注明出處：http://hk.pswp.cn/news/715929.shtml
英文地址，請注明出處：http://en.pswp.cn/news/715929.shtml

如若內容造成侵權/違法違規/事實不符，請聯系多彩編程網進行投訴反饋email:809451989@qq.com，一經查實，立即刪除！