DATA:P_MENGE TYPE EKKO-WKURS. DATA:P_MENGE1 TYPE EKKO-WKURS. SELECT * FROM EKKO INTO TABLE @DATA(LT_EKKO) UP TO 5 ROWS. SORT LT_EKKO BY LIFNR ERNAM. LOOP AT LT_EKKO INTO DATA(LS_EKKO) GROUP BY ( LIFNR = LS_EKKO-LIFNR ERNAM = LS_EKKO-ERNAM )."按括號里的條件進行分組 LOOP AT GROUP LS_EKKO INTO DATA(MEMBER)."按分組后進行組員的訪問 P_MENGE = P_MENGE + MEMBER-WKURS."這里就是對同一組的進行某個字段的匯總 ENDLOOP. WRITE:/ P_MENGE. CLEAR P_MENGE. ENDLOOP. LOOP AT LT_EKKO INTO DATA(LS_EKKO1) GROUP BY ( LIFNR = LS_EKKO1-LIFNR ERNAM = LS_EKKO1-ERNAM ) INTO DATA(KEY2). * LOOP AT GROUP LS_EKKO1 INTO DATA(MEMBER1). "后面的工作區會將分類的兩個字段加入進去,前面的工作區是沒有值的 * ENDLOOP. LOOP AT GROUP KEY2 INTO DATA(MEMBER2)."這里要用后面的工作區進行組員的訪問 P_MENGE1 = P_MENGE1 + MEMBER-WKURS."這里就是對同一組的進行某個字段的匯總 ENDLOOP. WRITE:/ P_MENGE1. CLEAR P_MENGE1. ENDLOOP.
結果如下: