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

原来为了你

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

 
 
 

日志

 
 
 
 

内表按某个字段汇总  

2011-01-07 14:43:37|  分类: 算法 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

report r_sum_by_one_key.

data: begin of itab occurs 0 ,
  matnr like a901-matnr,
  text(20),
  mount1 like lips-lfimg,
  mount2 like lips-lfimg,
  end of itab.

data: itab_temp like table of itab with header line,
      wa_temp like itab.

 

itab-matnr = '00001'.
itab-text  = 'aaaaa'.
itab-mount1 = '1.1'.
itab-mount2 = '1.2'.
append itab.

itab-matnr = '00001'.
itab-text  = 'aaaaa'.
itab-mount1 = '2.1'.
itab-mount2 = '2.2'.
append itab.

itab-matnr = '00002'.
itab-text  = 'bbbbb'.
itab-mount1 = '4.1'.
itab-mount2 = '4.2'.
append itab.

itab-matnr = '00001'.
itab-text  = 'aaaaa'.
itab-mount1 = '3.1'.
itab-mount2 = '3.2'.
append itab.

itab-matnr = '00002'.
itab-text  = 'bbbbb'.
itab-mount1 = '4.1'.
itab-mount2 = '4.2'.
append itab.


loop at itab.
  write:/ itab-matnr,itab-text,itab-mount1,itab-mount2.
endloop.

uline.


sort itab by matnr.
loop at itab.
  if itab-matnr = wa_temp-matnr.
    wa_temp-mount1 = wa_temp-mount1 + itab-mount1.
    wa_temp-mount2 = wa_temp-mount2 + itab-mount2.
  else.
    if sy-tabix <> 1.
      append wa_temp to itab_temp.
    endif.
    move-corresponding itab to wa_temp.
  endif.
endloop.
append wa_temp to itab_temp."最后一条数据

loop at itab_temp.
  write:/ itab_temp-matnr,itab_temp-text,itab_temp-mount1,itab_temp-mount2.
endloop.

 

自己实现的方法实在不爽,还是用ABAP的collect吧。

  评论这张
 
阅读(531)| 评论(0)

历史上的今天

评论

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

页脚

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