ALV_TREE（二：cl_gui_simple_tree）_SAP刘梦

ALV_TREE（二：cl_gui_simple_tree）_SAP刘梦

树形展示

首先创建屏幕， 画个容器，命名 TREE

DATA :

wa_container_tree

TYPE        scrfname  VALUE  'TREE' ,       "*定制对象

wa_custom_container_tree

TYPE  REF  TO cl_gui_custom_container ,     "*客户对象

tree_grid

TYPE  REF  TO cl_gui_alv_tree_simple ,

DATA : node_table    LIKE  TABLE  OF mtreesnode ,                             "NODE 节点表

node_wa

TYPE mtreesnode .                                      "节点

"取完数，后显示form FORM zform_show  .

PERFORM zform_create_tree .      "创建树

PERFORM zform_create_nodes .     "创建节点

PERFORM zform_add_nodes .        "添加节点

ENDFORM .                     " ZFORM_SHOW

"1、创建tree object

FORM zform_create_tree .

*建立定制控制对象

CREATE OBJECT wa_custom_container_tree

EXPORTING

container_name

= wa_container_tree .

*建立树对象

CREATE OBJECT tree_grid2

EXPORTING

* LIFETIME     =

parent

= wa_custom_container_tree

* SHELLSYLE     =

node_selection_mode

= cl_gui_simple_tree =>node_sel_mode_single

* HIDE_SELECTION  =

* NAME       =

EXCEPTIONS

lifetime_error

=  1

cntl_system_error

=  2

create_error

=  3

failed

=  4

OTHERS  =  6

.

IF sy -subrc <>  0 .

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.    ENDIF .

ENDFORM .                     "zform_create_tree

"2、创建节点 *&---------------------------------------------------------------------*

*       2.1、创建头节点

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

FORM zform_create_head_node  USING u_head_node                          "头节点值

u_text

.                       "节点文本

CLEAR node_wa .

*节点关键字

node_wa

-node_key  = u_head_node .

*第一层

CLEAR node_wa -relatkey .

CLEAR node_wa -relatship .

*是文件夹

node_wa

-hidden  =  '' .

node_wa

-disabled  =  '' .

node_wa

-isfolder  =  'X' .

*不带ICON

CLEAR node_wa -n_image .

CLEAR node_wa -exp_image .

CLEAR node_wa -expander .

node_wa

- text  = u_text .

APPEND node_wa  TO node_table .

ENDFORM .                     "zform_create_head_node

*&---------------------------------------------------------------------*

*       2.2 建末节点（叶子节点）

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

FORM zform_create_last_node  USING u_node_key                          "节点值

u_relatkey                          "上层节点

t_text      .                       "节点文本

CLEAR node_wa.

node_wa-node_key = u_node_key.

*上层关系

node_wa-relatkey = u_relatkey.

node_wa-relatship = cl_gui_simple_tree=>relat_last_child.

node_wa-hidden = ''.

node_wa-disabled = ''.

node_wa-isfolder = space.                                            "非文件夹

CLEAR node_wa-n_image.

CLEAR node_wa-exp_image.

CLEAR node_wa-expander.

node_wa-text = t_text.

APPEND node_wa TO node_table.

ENDFORM.                                                              "zform_create_last_node

*&---------------------------------------------------------------------*

*     2.3、创建中间节点（文件夹）

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

FORM zform_create_folde_node USING u_node_key

u_relatkey

t_text      .

CLEAR node_wa.

node_wa-node_key = u_node_key.

*上层关系

node_wa-relatkey = u_relatkey.

node_wa-relatship = cl_gui_simple_tree=>relat_last_child.

node_wa-hidden = ''.

node_wa-disabled = ''.

node_wa-isfolder = 'X'.

CLEAR node_wa-n_image.

CLEAR node_wa-exp_image.

CLEAR node_wa-expander.

node_wa-text = t_text.

APPEND node_wa TO node_table.

ENDFORM.                    "zform_create_last_node

"根据数据结构，填充各节点数据 *&---------------------------------------------------------------------*

*&      Form  zform_create_nodes

*&---------------------------------------------------------------------*

*       text 创建节点内表

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

FORM zform_create_nodes.

DATA: l_wa_data LIKE LINE OF g_kemu_show.

CLEAR l_wa_data.

LOOP AT g_kemu_show INTO l_wa_data.

IF l_wa_data-level_key = 1.        "等级标志1头节点，2中间节点，9叶子节点

PERFORM zform_create_head_node

USING l_wa_data-bjh_hkont

l_wa_data-bjh_hkont.

ELSEIF l_wa_data-level_key = 9.   "叶子节点

PERFORM zform_create_last_node

USING l_wa_data-bjh_hkont

l_wa_data-bjh_hkont_prev

l_wa_data-bjh_hkont.

ELSE.

PERFORM zform_create_folde_node  "中间节点（文件夹）

USING l_wa_data-bjh_hkont

l_wa_data-bjh_hkont_prev

l_wa_data-bjh_hkont.

ENDIF.

CLEAR l_wa_data.

ENDLOOP.

ENDFORM.                    "zform_create_nodes

*&---------------------------------------------------------------------*

*  3、最后添加节点到树

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

FORM zform_add_nodes .

*按照节点内容添加节点

CALL  METHOD tree_grid ->add_nodes

EXPORTING

table_structure_name

=  'MTREESNODE'   " MTREESNODE 此结构是固定的： node_table类型 mtreesnode     node_table             = node_table

* EXCEPTIONS

*  ERROR_IN_NODE_TABLE      = 1

*  FAILED            = 2

*  DP_ERROF           = 3

*  TABLE_STRUCTURE_NAME_NOT_FOUND = 4

*  OTHERS            = 5

.

IF sy -subrc <>  0 .

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF .

ENDFORM .                     "zform_add_nodes

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。