1. 程式人生 > >根據某一欄位彙總求和

根據某一欄位彙總求和

TYPES:BEGIN OF ty_itab,
  carrid TYPE spfli-carrid,
  cityto TYPE spfli-cityto,
  distance TYPE spfli-distance,
  END OF ty_itab.

DATA:lt_itab TYPE TABLE OF ty_itab WITH HEADER LINE.
DATA:lt_itab1 TYPE TABLE OF ty_itab WITH HEADER LINE.

START-OF-SELECTION.
  CLEAR:lt_itab[],lt_itab.

  select
    carrid
    cityto
    distance
    FROM 
spfli
    Into TABLE lt_itab.

  SORT lt_itab by carrid cityto.

  LOOP AT lt_itab.
    APPEND lt_itab to lt_itab1.
    AT END OF carrid .
      SUM.""按Col1 求和.
      lt_itab-cityto ''.
      APPEND lt_itab to lt_itab1.
    ENDAT.
    WRITE:/ lt_itab-carrid,lt_itab-cityto,lt_itab-distance.
  ENDLOOP.

  skip.
  ULINE.
  LOOP AT lt_itab1.
    WRITE:/ lt_itab1-carrid,lt_itab1-cityto,lt_itab1-distance.
  ENDLOOP.