注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

我的人生就是要一次次的超越

 
 
 

日志

 
 
 
 

RS_TREE_LIST_DISPLAY  

2011-09-10 13:21:10|  分类: ABAP基础知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

report zsapmsabapdemos.

type-pools stree.
data fnam(30), fval(50).
data t_node type snodetext.
data itab like t_node occurs with header line.

start
-of-selection.
  
set pf-status 'STANDARD1'."参考程序:SAPMSABAPDEMOS,添加功能键F2‘TRPI’(选择)

  
clearitabitab[].
  
perform node_feed using:  '01' 'Computer'   '6' 'H1',
                            
'02' 'Hardware'   '1' 'H2',
                            
'03' 'Input '     '1' 'H3',
                            
'04' 'Key Board'  '2' 'H4',
                            
'04' 'Mouse'      '2' 'H5',
                            
'02' 'Software'   '1' 'H6',
                            
'03' 'Frontend'   '2' 'H7'.

  
call function 'RS_TREE_CONSTRUCT'
    
tables
      nodetab 
itab.

  
call function 'RS_TREE_LIST_DISPLAY'
    
exporting
      callback_program      
sy-repid
      status                
'STANDARD1'
      callback_user_command 
'USER_COMMAND'
      use_control           
'L'.

*&---------------------------------------------------------------------
**& Form node_feed
*&---------------------------------------------------------------------
form node_feed using value(p_levelvalue(p_name)
                     
value(p_colorvalue(p_text).
  itab
-tlevel   p_level.
  itab
-name     p_name.
  itab
-nlength  10.
  itab
-color    p_color.
  itab
-text     p_text.
  itab
-tlength  5.
  itab
-tcolor   3.
  
append itab.
  
clear itab.

endform" node_feed



*&---------------------------------------------------------------------
**& Form USER_COMMAND
*&---------------------------------------------------------------------
form user_command tables node structure seucomm
                  
using command
                  
changing value(exit)
                  
value(list_refresh).

  
get cursor field fnam value fval.
  
if node-leaf 'X'.
    
write fval.
  
endif.
  
case command.
    
when '&F03'.
      
leave to screen 0.
  
endcase.
  
clear command.

endform" USER_COMMAND

RS_TREE_LIST_DISPLAY - 2006057145 - 原来为了你

 

  评论这张
 
阅读(426)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017