这种效果
主要参数：
wa_node
-
type "类型
wa_node
-
tlevel "层次
wa_node
-
name
wa_node
-
text
REPORT zlm_tree4
.
*Data declaration for additional node information
DATA
: t_node
TYPE snodetext
.
*Internal table and wa decl for nodes
DATA
: it_node
LIKE
TABLE
OF t_node
INITIAL
SIZE
0
,
wa_node
LIKE t_node
.
CLEAR
: it_node[]
, wa_node
.
wa_node
-
type
=
'T'
.
"第一个
wa_node
-
id
=
'T1'
.
wa_node
-name
=
'天朝'
.
wa_node
-tlevel
=
1
.
"层次一
wa_node
-nlength
=
'15'
.
wa_node
-
color
=
'4'
.
wa_node
-
text
=
'天朝'
.
wa_node
-tlength
=
'20'
.
wa_node
-tcolor
=
3
.
APPEND wa_node
TO it_node
.
CLEAR wa_node
.
wa_node
-
type
=
'P'
.
wa_node
-
id
=
'T2'
.
wa_node
-name
=
'北京'
.
wa_node
-tlevel
=
2
.
"层次二
wa_node
-nlength
=
'8'
.
wa_node
-
color
=
'1'
.
wa_node
-
text
=
'北京'
.
wa_node
-tlength
=
'20'
.
wa_node
-tcolor
=
4
.
APPEND wa_node
TO it_node
.
CLEAR wa_node
.
CLEAR wa_node
.
wa_node
-
type
=
'P'
.
wa_node
-
id
=
'T32'
.
wa_node
-name
=
'京温'
.
wa_node
-tlevel
=
3
.
"层次三
wa_node
-nlength
=
'8'
.
wa_node
-
color
=
'1'
.
wa_node
-
text
=
' 上坟烧报纸
--你糊弄鬼啊！
'
.
wa_node
-tlength
=
'20'
.
wa_node
-tcolor
=
4
.
APPEND wa_node
TO it_node
.
CLEAR wa_node
.
*Fm for constructing the tree
CALL
FUNCTION
'RS_TREE_CONSTRUCT'
TABLES
nodetab
= it_node
.
*FM for displaying the tree
CALL
FUNCTION
'RS_TREE_LIST_DISPLAY'
EXPORTING
callback_program
= sy
-repid
check_duplicate_name
=
'1'
color_of_node
=
'4'
color_of_mark
=
'3'
color_of_link
=
'1'
color_of_match
=
'5'
node_length
=
30
text_length
=
75
use_control
=
'L'
.
