如何删除内表中重复的多行数据？

ryq0000

原帖由 i_ken0898 于 2008-8-2 00:44 发表
LOOP AT itab.
  tabix = sy-tabix + 1.
  DELETE itab FROM tabix WHERE id = itab-id.
  IF sy-subrc = 0.  DELETE itab.  CONTINUE.  ENDIF.
ENDLOOP.

这个不错,有空试试.

huoniaolinxi

原帖由 lcyw263 于 2008-7-30 17:00 发表
先按照你需要的关键字排序，然后用DELETE ADJACENT DUPLICATES FROM itab COMPARING 字段

我就奇了怪了，最优的答案早就有人给出了，怎么还在这里讨论？还搞什么loop？

rosefish

原帖由 huoniaolinxi 于 2008-8-3 11:44 发表


我就奇了怪了，最优的答案早就有人给出了，怎么还在这里讨论？还搞什么loop？

LZ的需求跟这个不同。

huoniaolinxi

原帖由 rosefish 于 2008-8-3 21:34 发表


LZ的需求跟这个不同。

ok，I am wrong。

[ 本帖最后由 huoniaolinxi 于 2008-8-4 10:19 编辑 ]

gavin

先SORT,然后LOOP,LOOP到和上一条不相等的就APPEND到一个新的内表中,
LOOP完得到的新内表,不就是没重复记录了.
最后 CLEAR 原内表,再到新内表中的记录赋值过来.

dreamgift

楼主试试我写的方法.   有点乱.    不知道性能怎么样.   自己看吧

REPORT.
DATA: BEGIN OF ITB OCCURS 0,
      A,
      B,
      C,
     END OF ITB.

ITB-A = '1'.
ITB-B = '2'.
ITB-C = '3'.
APPEND ITB .
ITB-A = '1'.
ITB-B = '2'.
ITB-C = '3'.
APPEND ITB .
ITB-A = '1'.
ITB-B = '2'.
ITB-C = '3'.
APPEND ITB .
ITB-A = '2'.
ITB-B = '2'.
ITB-C = '3'.
APPEND ITB .
ITB-A = '3'.
ITB-B = '2'.
ITB-C = '3'.
APPEND ITB .
ITB-A = '3'.
ITB-B = '2'.
ITB-C = '3'.
APPEND ITB .
ITB-A = '4'.
ITB-B = '2'.
ITB-C = '3'.
APPEND ITB .
ITB-A = '5'.
ITB-B = '2'.
ITB-C = '3'.
APPEND ITB .
ITB-A = '6'.
ITB-B = '2'.
ITB-C = '3'.
APPEND ITB .

DATA FLG.
LOOP AT ITB INTO ITB.
  CLEAR FLG.
  DATA W_TABIX TYPE SY-TABIX.
  W_TABIX = SY-TABIX + 1.
  
  LOOP AT ITB TRANSPORTING NO FIELDS FROM W_TABIX WHERE A = ITB-A.
    DELETE ITB.
    FLG = 'X'.
  ENDLOOP.
  
  IF FLG = 'X'.
    DELETE ITB.
  ELSE.
    WRITE: /010 ITB-A,
                  015 ITB-B,
                  020 ITB-C.
  ENDIF.
ENDLOOP.

[ 本帖最后由 dreamgift 于 2008-8-6 09:06 编辑 ]

aaastop

和 i_ken0898 的想法一样。觉得蛮好用的这种办法