TREE三：RS_TREE_LIST_DISPLAY_SAP刘梦_新浪博客

这种效果

主要参数：

       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' .

欢迎关注订阅号：SAP学习记录 （SAPlearning ）