*&---------------------------------------------------------------------**&ReportYTH_TEST00029*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORTyth_test00029.*&---------------------------------------------------------------------**&Function:REUSE_ALV_FIELDCATALOG_MERGE*&ALV求和*&和function:REUSE_ALV_GRID_DISPLAY一起使用*&经典例子*&做为一个方法使用,设置ALV的Fieldcatlog.*&和delphi里的dxdbgrid的功能一样。对小类相加计算,*&对所有的数量求和.*&对ALV中的某一列进行分类的完成测试程序。*&---------------------------------------------------------------------*DATA:URS5,kunnrLIKElikp-kunnr,"客户号wadat_istLIKElikp-wadat_ist,"交货日期(发货日期)lfimgLIKElips-lfimg,"-POOLS::l_eventsTYPEslis_t_event,gt_list_top_of_pageTYPEslis_t_listheader,gs_layoutTYPEslis_layout_alv,fieldcatTYPEslis_t_fieldcat_alvWITHHEADERLINE,eventcatTYPEslis_t_eventWITHHEADERLINE,it_sortTYPEslis_t_sortinfo_alvWITHHEADERLINE,prgLIKEsy-repid.*tablesdisvariant:格式(外部使用)DATA:~kunnra~wadat_istb~lfimgFROMlikpASaINNERJOINlipsASbONa~vbeln=b~vbelnINTO(i_likp-kunnr,i_likp-wadat_ist,i_likp-lfimg)WHEREA~KUNNR='0000010013'ORA~KUNNR='0000010014'..*&---------------------------------------------------------------------**&FormPREPARE_LIST_VAL*&------------
ALV分组求和1 来自淘豆网www.taodocs.com转载请标明出处.