0
点赞
收藏
分享

微信扫一扫

TREE三:RS_TREE_LIST_DISPLAY

艾晓雪 2022-06-10 阅读 63

TREE三:RS_TREE_LIST_DISPLAY_java




这种效果

主要参数:        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' .

举报

相关推荐

0 条评论