OO實現ALV TABLE 七:ALV的選擇功能

 ALV的輸出結果中,要對它的某一行、某一列或者某一單元格進行選定,我們通常的做法是把鼠標直接點擊那一行或者是列就可以了,如果選擇多行或多列,在選擇的條件按住‘CTRL’鍵就可以了。這是手動選擇的方法,但是在實際情況中,有時候需要用程序來對輸出結果進行選擇。

 

1.       首先我們要取得類CL_SALV_SELECTIONS的實例。

DATA  lr_selections TYPE REF TO cl_salv_selections.

lr_selections = gr_table->get_selections( ).

2.       設置選擇模式。

lr_selections->set_selection_mode( if_salv_c_selection_mode=>row_column ).

3.       選擇行

DATA lt_row  TYPE salv_t_row.

APPEND 3 TO lt_row.

    APPEND 4 TO lt_row.

lr_selections->set_selected_rows( lt_row ).

4.       選擇列

DATA  lt_column TYPE salv_t_column.

APPEND 3 TO lt_row.

    APPEND 4 TO lt_row.

lr_selections->set_selected_rows( lt_row ).

5.       選擇一個單元格

DATA  ls_cell TYPE salv_s_cell.

ls_cell-row = 7.

    ls_cell-columnname = 'CITYFROM'.

lr_selections->set_current_cell( ls_cell )

6.       選擇多個單元格

DATA  lt_cell  TYPE salv_t_cell,

         ls_cell  TYPE salv_s_cell.

ls_cell-row = 5.

    ls_cell-columnname = 'CITYFROM'.

    APPEND ls_cell TO lt_cell.

    ls_cell-row = 6.

    ls_cell-columnname = 'CITYFROM'.

   APPEND ls_cell TO lt_cell.

    lr_selections->set_selected_cells( lt_cell ).

 

下面是效果圖



 

下面是程序的所有代碼:

REPORT  y_xin_002.

 

*變量定義

TYPES: BEGIN OF gs_spfli,

        mandt       TYPE spfli-mandt,

        carrid      TYPE spfli-carrid,

        connid      TYPE spfli-connid,

        countryfr   TYPE spfli-countryfr,

        cityfrom    TYPE spfli-cityfrom,

        airpfrom    TYPE spfli-airpfrom,

        countryto   TYPE spfli-countryto,

        cityto      TYPE spfli-cityto,

        airpto      TYPE spfli-airpto,

        fltime      TYPE spfli-fltime,

        deptime     TYPE spfli-deptime,

        arrtime     TYPE spfli-arrtime,

        distance    TYPE spfli-distance,

        distid      TYPE spfli-distid,

        fltype      TYPE spfli-fltype,

        period      TYPE spfli-period,

END OF gs_spfli.

TYPES  ty_spfli TYPE gs_spfli OCCURS 0.

 

DATA: gr_table     TYPE REF TO cl_salv_table.

 

*----------------------------------------------------------------------*

*       CLASS lcl_alv DEFINITION

*----------------------------------------------------------------------*

*       ALV操作類定義

*----------------------------------------------------------------------*

CLASS lcl_alv DEFINITION.

  PUBLIC SECTION.

    METHODS: getdata         "取得要顯示的數據

               RETURNING value(lt_tab) TYPE ty_spfli,

             alv_full        "全屏Grid列表處理方法

               IMPORTING value(lt_tab) TYPE ty_spfli,

             main.           "主方法

ENDCLASS.                    "lcl_alv DEFINITION

 

*----------------------------------------------------------------------*

*       CLASS lcl_alv IMPLEMENTATION

*----------------------------------------------------------------------*

*       ALV操作類實現

*----------------------------------------------------------------------*

CLASS lcl_alv IMPLEMENTATION.

*取得要顯示的數據

  METHOD getdata.

    SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_tab FROM spfli.

  ENDMETHOD.                    "getdata

 

*輸出全屏網格列表的方法

  METHOD alv_full.

    DATA: lr_functions  TYPE REF TO cl_salv_functions,

          lr_selections TYPE REF TO cl_salv_selections,

          lt_column     TYPE salv_t_column,

          lt_row        TYPE salv_t_row,

          lt_cell       TYPE salv_t_cell,

          ls_cell       TYPE salv_s_cell.

 

    "創建實例

    TRY.

        cl_salv_table=>factory(

          IMPORTING

            r_salv_table = gr_table

          CHANGING

            t_table      = lt_tab

        ).

      CATCH cx_salv_msg.

    ENDTRY.

 

    "顯示ALV的標準功能

    lr_functions = gr_table->get_functions( ).

    lr_functions->set_all( 'X' ).

 

    "取得類CL_SALV_SELECTIONS的實例

    lr_selections = gr_table->get_selections( ).

    "設置選擇模式

    lr_selections->set_selection_mode( if_salv_c_selection_mode=>row_column ).

    "選擇列

    APPEND 'FLTIME' TO lt_column.

    APPEND 'DISTANCE' TO lt_column.

    lr_selections->set_selected_columns( lt_column ).

    "選擇行

    APPEND 3 TO lt_row.

    APPEND 4 TO lt_row.

    lr_selections->set_selected_rows( lt_row ).

*    "選擇多個單元格

*    ls_cell-row = 5.

*    ls_cell-columnname = 'CITYFROM'.

*    APPEND ls_cell TO lt_cell.

*    ls_cell-row = 6.

*    ls_cell-columnname = 'CITYFROM'.

*    APPEND ls_cell TO lt_cell.

*    lr_selections->set_selected_cells( lt_cell ).

    "選擇一個單元格

    ls_cell-row = 7.

    ls_cell-columnname = 'CITYFROM'.

    lr_selections->set_current_cell( ls_cell ).

 

    "顯示列表

    gr_table->display( ).

  ENDMETHOD.                    "alv_full

 

*主方法整合數據

  METHOD main.

    DATA: lt_tab TYPE ty_spfli.

 

    "取得要顯示的數據

    lt_tab = me->getdata( ).

 

    me->alv_full( lt_tab ).

  ENDMETHOD.                    "main

ENDCLASS.                    "lcl_alv IMPLEMENTATION

 

*執行動作

START-OF-SELECTION.

  DATA  lr_alv   TYPE REF TO lcl_alv.

  CREATE OBJECT lr_alv.

  lr_alv->main( ).

 

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章