TREE三:RS_TREE_LIST_DISPLAY
![TREE三:RS_TREE_LIST_DISPLAY TREE三:RS_TREE_LIST_DISPLAY](http://simg.sinajs.cn/blog7style/images/common/sg_trans.gif)
这种效果
主要参数:
REPORT zlm_tree4.
*Datadeclaration for additional node information
DATA : t_node TYPE snodetext.
*Internaltable 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.
*Fmfor constructing the tree
CALL FUNCTION 'RS_TREE_CONSTRUCT'
TABLES
nodetab = it_node.
*FMfor 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'.
*Data
DATA
*Internal
DATA
CLEAR
wa_node-type
wa_node-id
wa_node-name
wa_node-tlevel
wa_node-nlength
wa_node-color
wa_node-text
wa_node-tlength
wa_node-tcolor
APPEND
CLEAR
wa_node-type
wa_node-id
wa_node-name
wa_node-tlevel
wa_node-nlength
wa_node-color
wa_node-text
wa_node-tlength
wa_node-tcolor
APPEND
CLEAR
CLEAR
wa_node-type
wa_node-id
wa_node-name
wa_node-tlevel
wa_node-nlength
wa_node-color
wa_node-text
wa_node-tlength
wa_node-tcolor
APPEND
CLEAR
*Fm
CALL
*FM
CALL
http://blog.sina.com.cn/sapliumeng