ABAP学习（21）：OOSALV学习 Tree ALV

5. OO SALV tree

　　利用函数和GRID的功能发布的SALV包程序(SALV也称为New ALV)。通过类cl_salv_tree，实现tree类型ALV的输出。

5.1显示tree ALV

          通过cl_salv_tree类对象lo_tree,显示tree ALV。

代码实例：

　　全局变量定义，使用icon需要引入type-pools:icon；gt_spfli显示的内表结构，是一个空内表；lo_tree为cl_salv_tree类对象；lo_error为异常类对象；lo_container为容器类对象。

"使用icon
type-pools: icon.

"这个内表创建alv时，没有数据
DATA:gt_spfli TYPE STANDARD TABLE OF spfli.
"cl_salv_tree类对象
DATA:lo_tree TYPE REF TO cl_salv_tree.
"异常类对象
DATA:lo_error TYPE REF TO  CX_SALV_ERROR.
"屏幕容器类对象
DATA:lo_container TYPE REF TO cl_gui_custom_container.

创建cl_salv_tree类对象，设置显示tree结构

"创建tree alv,全屏显示
FORM creat_alv_fullscreen.
  TRY .
      "获取cl_salv_tree类对象
      cl_salv_tree=>factory(
        importing
          r_salv_tree = lo_tree
        changing
          t_table = gt_spfli ).

      "设置全局
      PERFORM set_tree_settings.
      "获取数据，设置tree结构
      PERFORM set_tree.
      "显示alv
      lo_tree->display( ).
    CATCH CX_SALV_NO_NEW_DATA_ALLOWED CX_SALV_ERROR INTO lo_error.
      DATA:result TYPE string.
      result = lo_error->IF_MESSAGE~GET_TEXT( ).
      MESSAGE result TYPE 'E'.
  ENDTRY.
ENDFORM.

设置tree的树形结构，数据是在这个阶段获取的，而生成cl_salv_tree类对象lo_tree时传入的table为空。

代码实例：

"设置tree结构
FORM set_tree.
  DATA:lt_spfli TYPE STANDARD TABLE OF spfli.
  DATA:lw_spfli LIKE LINE OF lt_spfli.
  DATA:l_carrid_key type lvc_nkey.
  DATA:l_connid_key type lvc_nkey.
  DATA:l_last_key type lvc_nkey.

  DATA:lo_nodes type ref to cl_salv_nodes.
  DATA:lo_node type ref to cl_salv_node.
  DATA:lo_item type ref to cl_salv_item.

  "查询数据
  SELECT * INTO TABLE lt_spfli FROM spfli.
  "获取tree的node节点
  "插入节点
  "IF_SALV_C_NODE_RELATION~FIRST_CHILD:第一个child
  "IF_SALV_C_NODE_RELATION~FIRST_SIBLING:第一个brother
  "IF_SALV_C_NODE_RELATION~LAST_CHILD:最后child
  "IF_SALV_C_NODE_RELATION~LAST_SIBLING:最后brother
  "IF_SALV_C_NODE_RELATION~NEXT_SIBLING:next brother
  "IF_SALV_C_NODE_RELATION~PREVIOUS_SIBLING:previous brother
  "IF_SALV_C_NODE_RELATION~PARENT:parent节点
  lo_nodes = lo_tree->get_nodes( ).
  LOOP AT lt_spfli INTO lw_spfli.
    ON CHANGE OF lw_spfli-carrid.
      TRY .
          "添加子节点
          lo_node = lo_nodes->add_node(
             related_node = ''
             data_row = lw_spfli
             relationship = cl_salv_nodes=>IF_SALV_C_NODE_RELATION~LAST_CHILD
           ).
          l_carrid_key = lo_node->get_key( ).
        CATCH cx_salv_msg.
      ENDTRY.
    ENDON.

    ON CHANGE OF lw_spfli-connid.
      TRY .
          "添加子节点
          lo_node = lo_nodes->add_node(
             related_node = l_carrid_key
             data_row = lw_spfli
             relationship = cl_salv_nodes=>IF_SALV_C_NODE_RELATION~LAST_CHILD
           ).
          "获取节点key
          l_connid_key = lo_node->get_key( ).
        CATCH cx_salv_msg.
      ENDTRY.
    ENDON.

    "添加最后层
    TRY .
        "添加子节点
        lo_node = lo_nodes->add_node(
           related_node = l_connid_key
           data_row = lw_spfli
           relationship = cl_salv_nodes=>IF_SALV_C_NODE_RELATION~LAST_CHILD
         ).
        "获取节点key
        l_last_key = lo_node->get_key( ).
      CATCH cx_salv_msg.
    ENDTRY.

  ENDLOOP.
ENDFORM.

View Code

5.2使用子屏幕显示tree alv

          定义全局的lo_container容器类对象。

1.创建子屏幕100

 

 2.创建GUI Status

 

 3.创建屏幕容器CONTAINER

 

 代码实例：

调用子屏幕程序

"创建子屏幕container显示alv
FORM creat_alv_screen.
  "调用子屏幕
  CALL SCREEN 100.
ENDFORM.

子屏幕输入输入module

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  "设置PF-STATUS
  SET PF-STATUS '100'.

  IF lo_container IS NOT BOUND.
    IF cl_salv_tree=>is_offline( ) EQ abap_false.
      CREATE OBJECT lo_container
         EXPORTING
          container_name = 'CONTAINER'.
    ENDIF.
  ENDIF.
  "创建cl_salv_tree类对象
  TRY .
    cl_salv_tree=>factory(
         EXPORTING
            r_container = lo_container
         IMPORTING
            r_salv_tree = lo_tree
         CHANGING
            t_table = gt_spfli ).

      "设置全局
      PERFORM set_tree_settings.
      "获取数据，设置tree结构
      PERFORM set_tree.
      "显示alv
      lo_tree->display( ).

  CATCH CX_SALV_NO_NEW_DATA_ALLOWED CX_SALV_ERROR.
    EXIT.
  ENDTRY.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text user command
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  DATA:ok_code TYPE syucomm.
  ok_code = sy-ucomm.
  CASE ok_code.
    WHEN 'BACK'.
      CLEAR ok_code.
      SET SCREEN 0.
      LEAVE SCREEN.
  ENDCASE.
ENDMODULE. " USER_COMMAND_0100  INPUT

View Code

5.3设置tree显示

          通过cl_salv_tree_settings类对象lo_tree_settings设置层级的显示参数。

          通过cl_salv_tree类对象lo_tree的get_tree_settings方法获取cl_salv_tree_settings类对象。

代码实例：

"设置tree显示
FORM set_tree_settings.
  DATA:lo_tree_settings TYPE REF TO cl_salv_tree_settings.
  DATA:lo_tooltips TYPE REF TO cl_salv_tooltips.

  "获取设置实例化对象
  lo_tree_settings = lo_tree->get_tree_settings( ).
  "设置header
  lo_tree_settings->set_hierarchy_header( 'tree alv' ).
  "设置tooltip
  lo_tree_settings->set_hierarchy_tooltip( 'tree alv tooltip' ).
  "设置层级列icon，type pools:icon
  lo_tree_settings->set_hierarchy_icon( '@06@' ).
  "设置size,层级列宽度
  lo_tree_settings->set_hierarchy_size( 30 ).

  "设置header
  DATA:lv_title TYPE salv_de_tree_text.
  lv_title = sy-title."系统title
  lo_tree_settings->set_header( lv_title ).

  "设置tooltips
  lo_tooltips = lo_tree_settings->get_tooltips( ).
  DATA:lv_value TYPE LVC_VALUE.
  lv_value = IF_SALV_C_TREE_STYLE=>EMPHASIZED_A.
  "C_TYPE_ICON
  "C_TYPE_SYMBOL
  "C_TYPE_COLOR
  "C_TYPE_EXCEPTION
  "C_TYPE_TREE_STYLE
  lo_tooltips->add_tooltip(
    EXPORTING
      TYPE = CL_SALV_TOOLTIP=>C_TYPE_TREE_STYLE
      VALUE = lv_value
      TOOLTIP = 'tree style tooltip'
   ).
ENDFORM.

View Code

5.4设置function

          通过cl_salv_tree类对象lo_tree的set_screen_status方法设置pf-status。

找到Function Group:KKBL，复制标准的PF-STATUS到Program。但是在tree ALV 中显示出来的标准功能，基本上没有用，所以需要定制自己的Tool工具栏。

 

 代码实例：

"设置function
FORM set_functions.
  "设置自定义PF-STATUS
  "C_FUNCTIONS_NONE
  "C_FUNCTIONS_ALL
  "C_FUNCTIONS_DEFAULT
  lo_tree->set_screen_status(
    pfstatus      =  'STANDARD_ALV_TREE'
    report        =  sy-repid
    set_functions = lo_tree->c_functions_all ).
ENDFORM.

 自定义function按钮，使用cl_salv_functions和cl_salv_functions_tree类对象。

代码实例：

"设置function
FORM set_functions.
  DATA:lo_functions_base TYPE REF TO cl_salv_functions.
  DATA:lo_functions_tree TYPE REF TO cl_salv_functions_tree.

  "设置自定义PF-STATUS
  "C_FUNCTIONS_NONE
  "C_FUNCTIONS_ALL
  "C_FUNCTIONS_DEFAULT
  lo_tree->set_screen_status(
    pfstatus      =  'STANDARD_ALV_TREE'
    report        =  sy-repid
    set_functions = lo_tree->c_functions_all ).
  "获取当前pf-status
  "lo_tree->get_screen_status( IMPORTING report =  pfstatus =  ).

  "使用cl_salv_functions,cl_salv_functions_tree添加自定义function，
  "只能在定义容器显示tree ALV时才能生效
  TRY .
      "获取基础function类对象
      lo_functions_base = lo_tree->get_functions_base( ).
      "添加function,好像并没添加
      lo_functions_base->add_function(
        name = 'MYFUN1'
        icon = 'ICON_SELECT_DETAIL'
        text = 'MYFUN1'
        tooltip = 'my function'
        position = IF_SALV_C_FUNCTION_POSITION=>RIGHT_OF_SALV_FUNCTIONS ).
    CATCH CX_SALV_EXISTING CX_SALV_WRONG_CALL.
  ENDTRY.

  TRY.
      "设置tree特有function
      lo_functions_tree = lo_tree->get_functions( ).
      lo_functions_tree->add_function(
        name = 'MYFUN2'
        icon = 'ICON_SELECT_DETAIL'
        text = 'MYFUN2'
        tooltip = 'my function2'
        position = IF_SALV_C_FUNCTION_POSITION=>RIGHT_OF_SALV_FUNCTIONS ).

    CATCH CX_SALV_EXISTING CX_SALV_WRONG_CALL.
  ENDTRY.
ENDFORM.

5.5设置列

          通过cl_salv_tree类对象lo_tree的方法get_columns获取列设置类cl_salv_columns_tree对象lo_columns。

代码实例：

"设置列
FORM set_columns.
  DATA:lo_columns TYPE REF TO cl_salv_columns_tree.
  DATA:lt_columns TYPE SALV_T_COLUMN_REF.
  DATA:lo_column TYPE REF TO cl_salv_column.
  TRY .
      "获取列设置对象
      lo_columns = lo_tree->get_columns( ).
      "设置自适应列宽
      lo_columns->set_optimize( abap_true ).
      "获取column内表，所有列
      lt_columns = lo_columns->get( ).
      "获取单列
      lo_column = lo_columns->get_column( columnname = 'CARRID' ).
      "获取列位置
      DATA:lv_pos.
      lv_pos = lo_columns->get_column_position( columnname = 'CARRID' ).
      "设置列位置
      lo_columns->set_column_position( columnname = 'CARRID' position = 3 ).
      "获取，设置exception列
      "SET_EXCEPTION_COLUMN
      "GET_EXCEPTION_COLUMN

      "通过cl_salv_column设置单列
      lo_column->set_alignment( IF_SALV_C_ALIGNMENT=>LEFT ).
      lo_column->set_short_text( '航班id' ).

      "设置隐藏
      lo_column = lo_columns->get_column( columnname = 'AIRPFROM' ).
      lo_column->set_visible( abap_false ).
      lo_column = lo_columns->get_column( columnname = 'AIRPTO' ).
      lo_column->set_technical( abap_true ).

      "设置quantity
      lo_column = lo_columns->get_column( columnname = 'DISTANCE' ).
      lo_column->set_quantity( 'C36' ).

      "SET_ALIGNMENT设置对齐方式
      "IF_SALV_C_ALIGNMENT=>LEFT/RIGHT/CENTERED
      "SET_CURRENCY_COLUMN,设置currency列
      "SET_CURRENCY,设置currency
      "SET_DDIC_REFERENCE:设置数据库参考数据结构
      "SET_DECIMALS_COLUMN"设置小数列
      "SET_DECIMALS"设置整列小数位数
      "SET_EDIT_MASK"设置格式显示
      "SET_F1_ROLLNAME
      "SET_LEADING_ZERO "设置前置0
      "SET_LOWERCASE "是否可转换小写
      "SET_LONG_TEXT "设置列字段名
      "SET_MEDIUM_TEXT"设置列字段名
      "SET_SHORT_TEXT"设置列字段名
      "SET_OPTIMIZED "设置自适应宽度
      "SET_OUTPUT_LENGTH"设置输出长度
      "SET_QUANTITY "设置数量
      "SET_QUANTITY_COLUMN "设置数量列
      "SET_ROUND "设置四舍五入
      "SET_ROUND_COLUMN"设置四舍五入列
      "SET_ROW
      "SET_SIGN "设置显示sign
      "SET_TECHNICAL "设置technical隐藏
      "SET_VISIBLE "设置是否可见
      "SET_TOOLTIP
      "SET_ZERO
      "SET_DECFLOAT_STYLE
      "GET_DECFLOAT_STYLE
      "SET_FIXED_HEADER_TEXT
    CATCH CX_SALV_NOT_FOUND.
  ENDTRY.
ENDFORM.

View Code

5.6设置event事件

          通过自定义事件处理类lcl_handle_events,然后实现该类；

          通过cl_salv_tree类对象lo_tree的get_event方法获取cl_salv_events_tree类对象，然后将事件处理类方法注册给该类对象。

代码实例：

"定义事件处理类
CLASS lcl_handle_events DEFINITION.
  PUBLIC SECTION.
    METHODS:on_user_command FOR EVENT added_function OF cl_salv_events
              IMPORTING e_salv_function.
    METHODS:on_before_user_command FOR EVENT before_salv_function OF cl_salv_events
              IMPORTING e_salv_function.
    METHODS:on_after_user_command FOR EVENT after_salv_function OF cl_salv_events
              IMPORTING e_salv_function.
    METHODS:on_double_click FOR EVENT double_click OF cl_salv_events_tree
              IMPORTING node_key columnname.
    METHODS:on_link_click FOR EVENT link_click OF cl_salv_events_tree
              IMPORTING columnname.
    METHODS:on_keypress FOR EVENT keypress OF cl_salv_events_tree
              IMPORTING node_key columnname key.
    METHODS:on_checkbox_change FOR EVENT checkbox_change OF cl_salv_events_tree
              IMPORTING columnname node_key checked.
    METHODS:on_expand_empty FOR EVENT expand_empty_folder OF cl_salv_events_tree
              IMPORTING node_key.
ENDCLASS.
"事件处理类实现
CLASS lcl_handle_events IMPLEMENTATION.
  METHOD on_user_command.
    MESSAGE i000(0k) WITH e_salv_function.
  ENDMETHOD.

  METHOD on_before_user_command.
    MESSAGE i000(0k) WITH 'before:' e_salv_function.
  ENDMETHOD.

  METHOD on_after_user_command.
    MESSAGE i000(0k) WITH 'after:' e_salv_function.
  ENDMETHOD.

  METHOD on_double_click.
    MESSAGE i000(0k) WITH node_key columnname.
  ENDMETHOD.

  METHOD on_link_click.
    MESSAGE i000(0k) WITH columnname.
  ENDMETHOD.

  METHOD on_keypress.
    MESSAGE i000(0k) WITH node_key columnname key.
  ENDMETHOD.

  METHOD on_checkbox_change.
    MESSAGE i000(0k) WITH columnname node_key checked.
  ENDMETHOD.

  METHOD on_expand_empty.
    MESSAGE i000(0k) WITH node_key.
  ENDMETHOD.
ENDCLASS.

"设置event
FORM set_events.
  DATA:lo_events TYPE REF TO cl_salv_events_tree.
  DATA:lo_handle_events TYPE REF TO lcl_handle_events.
  TRY .
      "获取event类对象
      lo_events = lo_tree->get_event( ).
      "创建事件处理类对象
      CREATE OBJECT lo_handle_events.
      "注册事件
      SET HANDLER lo_handle_events->on_user_command FOR lo_events.
      SET HANDLER lo_handle_events->on_before_user_command FOR lo_events.
      SET HANDLER lo_handle_events->on_after_user_command FOR lo_events.
      SET HANDLER lo_handle_events->on_double_click FOR lo_events.
      SET HANDLER lo_handle_events->on_link_click FOR lo_events.
      SET HANDLER lo_handle_events->on_keypress FOR lo_events.
      SET HANDLER lo_handle_events->on_checkbox_change FOR lo_events.
      SET HANDLER lo_handle_events->on_expand_empty FOR lo_events.

      "keypress
      lo_events->add_key_for_keypress( if_salv_c_keys=>f1 ).
      lo_events->add_key_for_keypress( if_salv_c_keys=>f4 ).
      lo_events->add_key_for_keypress( if_salv_c_keys=>enter ).

    CATCH CX_SALV_MSG.
  ENDTRY.
ENDFORM.

View Code

5.7设置Node节点

          创建树形结构添加节点时，通过cl_salv_nodes类对象lo_nodes添加新的节点，删除节点，移动节点。

代码实例：

"设置node节点
FORM set_nodes.
  DATA:lt_spfli TYPE TABLE OF spfli.
  DATA:lw_spfli LIKE LINE OF lt_spfli.
  "节点类对象
  DATA:lo_nodes type ref to cl_salv_nodes.
  DATA:lo_node type ref to cl_salv_node.
  DATA:lo_item type ref to cl_salv_item.
  "key
  DATA:lv_key type lvc_nkey.

  "设置节点内容
  lw_spfli-carrid = 'BB'.
  lw_spfli-connid = '11'.
  lw_spfli-countryfr = 'CN'.
  lw_spfli-cityfrom = 'CQ'.
  "获取节点类对象
  lo_nodes = lo_tree->get_nodes( ).

  TRY .
      "添加节点
      "related_node:父节点
      "relationship:设置添加节点和父节点关系
      "cl_salv_nodes
      "IF_SALV_C_NODE_RELATION~FIRST_CHILD:第一个child
      "IF_SALV_C_NODE_RELATION~FIRST_SIBLING:第一个brother
      "IF_SALV_C_NODE_RELATION~LAST_CHILD:最后child
      "IF_SALV_C_NODE_RELATION~LAST_SIBLING:最后brother
      "IF_SALV_C_NODE_RELATION~NEXT_SIBLING:next brother
      "IF_SALV_C_NODE_RELATION~PREVIOUS_SIBLING:previous brother
      "IF_SALV_C_NODE_RELATION~PARENT:parent节点
      "或者cl_gui_column_tree
      "RELAT_FIRST_CHILD
      "RELAT_FIRST_SIBLING
      "RELAT_LAST_CHILD
      "RELAT_LAST_SIBLING
      "RELAT_NEXT_SIBLING
      "RELAT_PREV_SIBLING

      "add_node参数时创建时传入，也可以使用lo_node的方法设置
      "data_row:本节点数据,使用SET_DATA_ROW,GET_DATA_ROW
      "collapsed_icon:收拢icon,使用SET_COLLAPSED_ICON,GET_COLLAPSED_ICON
      "expanded_icon:展开icon,使用SET_EXPANDED_ICON,GET_EXPANDED_ICON
      "row_style:行类型,使用SET_ROW_STYLE,GET_ROW_STYLE
      "text:tree控制列文本,使用SET_TEXT,GET_TEXT
      "visible:是否可见,使用SET_VISIBLE,IS_VISIBLE,
      "expander:是否可展开,使用SET_EXPANDER,HAS_EXPANDER
      "enabled:是否使能,使用SET_ENABLED,IS_ENABLED
      "folder:是否活页夹,使用SET_FOLDER,IS_FOLDER
      "COLLAPSE:收拢节点
      "EXPAND:展开节点
      "DELETE:删除节点
      "MOVE:移动节点
      "GET_CHILDREN:获取所有子节点
      "GET_FIRST_CHILD:获取第一个子节点
      "GET_LAST_CHILD:获取最后子节点
      "GET_NEXT_SIBLING:获取下个兄弟节点
      "GET_PARENT:获取parent节点
      "GET_PREVIOUS_SIBLING:获取上个兄弟节点
      lo_node = lo_nodes->add_node(
       related_node = ''
       relationship = cl_gui_column_tree=>RELAT_LAST_CHILD
       data_row = lw_spfli
       text = 'root node'
        ).
      "设置folder
      lo_node->set_folder( abap_true ).
      "设置icon
      lo_node->set_expanded_icon( '@3T@' ).
      lo_node->set_collapsed_icon( '@3S@' ).
      "获取key
      lv_key = lo_node->get_key( ).

      "获取hierarchy item,设置超链接,
      lo_item = lo_node->get_hierarchy_item( ).
      lo_item->set_type( if_salv_c_item_type=>link ).
      "获取特定列，设置button类型
      lo_item = lo_node->get_item( 'CARRID' ).
      lo_item->set_type( if_salv_c_item_type=>button ).

      "添加子节点
      lo_node = lo_nodes->add_node(
      related_node = lv_key
      relationship = cl_gui_column_tree=>RELAT_LAST_CHILD
      data_row = lw_spfli
       ).
      lo_item = lo_node->get_hierarchy_item( ).
      "设置为checkbox
      lo_item->set_type( if_salv_c_item_type=>checkbox ).
      lo_item->set_editable( abap_true ).

      lo_node = lo_nodes->add_node(
      related_node = lv_key
      relationship = cl_gui_column_tree=>RELAT_LAST_CHILD
      data_row = lw_spfli
       ).
    CATCH CX_SALV_MSG.
  ENDTRY.
ENDFORM.

View Code

5.8设置selection

代码实例：

"设置selection
FORM set_selection.
  DATA:lo_selection TYPE REF TO cl_salv_selections_tree.
  DATA:lt_nodes TYPE salv_t_nodes.
  DATA:ls_nodes TYPE salv_s_nodes.
  DATA:lt_columns TYPE salv_t_column.
  DATA:lv_column TYPE LVC_FNAME.
  DATA:lo_item TYPE REF TO cl_salv_item.

  "获取selection类对象
  lo_selection = lo_tree->get_selections( ).

  "获取选择节点
  lt_nodes = lo_selection->get_selected_nodes( ).
  "设置选择节点
  lo_selection->set_selected_nodes( lt_nodes ).
  "设置选择列
  lt_columns = lo_selection->get_selected_columns( ).
  "获取选择列
  lo_selection->set_selected_columns( lt_columns ).
  "获取选择item
  lo_item = lo_selection->get_selected_item(  ).
  "设置选择item
  lo_selection->set_selected_item( lo_item ).
ENDFORM.

5.9设置显示为popup

          直接调用cl_salv_tree类对象lo_tree方法set_screen_popup设置为窗口显示，只能是fullscreen方式才能设置为popup显示。

代码实例：

"设置窗口显示,只能是fullscreen方式显示才能设置
FORM set_popup.
  lo_tree->set_screen_popup(
    start_column = 10
    end_column = 400
    start_line = 10
    end_line = 500
  ).
ENDFORM.

5.10关闭窗口

代码实例：

"关闭窗口
FORM set_close_window.
  lo_tree->close_screen( ).
ENDFORM.

5.11设置layout

代码实例：

"设置layout
FORM set_layout.
  DATA:lo_layout TYPE REF TO cl_salv_layout.
  DATA:lv_key TYPE salv_s_layout_key.

  "设置key
  lv_key-report = sy-repid.

  "获取当前layout
  lo_layout = lo_tree->get_layout( ).
  lo_layout->set_key( lv_key ).

  "获取default
  lo_layout->get_default_layout( ).
  "获取init layout
  lo_layout->get_initial_layout( ).
  "获取当前layout
  lo_layout->get_current_layout( ).

  "设置default
  lo_layout->set_default( abap_true ).
  "设置init layout
  lo_layout->set_initial_layout( 'test' ).

  "设置save restriction
  "if_salv_c_layout=>restrict_user_dependant
  "if_salv_c_layout=>restrict_user_independant.
  lo_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).

ENDFORM.

View Code

5.12设置汇总

          通过cl_salv_tree类对象lo_tree调用方法get_aggregations获取cl_salv_aggregations类对象。

代码实例：

"设置汇总
FORM set_sort_agg.
  DATA:lo_aggregations TYPE REF TO cl_salv_aggregations.
  "获取lo_aggregation类对象
  lo_aggregations = lo_tree->get_aggregations( ).
  "清空汇总
  lo_aggregations->clear( ).
  "添加汇总
  "汇总规则AGGREGATION
  "IF_SALV_C_AGGREGATION~TOTAL
  "IF_SALV_C_AGGREGATION~MINIMUM
  "IF_SALV_C_AGGREGATION~MAXIMUM
  "IF_SALV_C_AGGREGATION~AVERAGE
  "IF_SALV_C_AGGREGATION~NONE
  TRY .
      lo_aggregations->add_aggregation( columnname  = 'DISTANCE' ).
    CATCH cx_salv_not_found cx_salv_data_error cx_salv_existing.
  ENDTRY.
ENDFORM.

View Code