如何从内部表中删除所有重复项

2020-08-20 21:46发布

4条回答

昵称总是被占用

1楼 · 2020-08-20 21:55.采纳回答

因此，您想要：

删除所有重复的行！
甚至不将一组重复的一行保留为原始行？
仅应保留这些行，确实没有任何重复项！

此编码将执行"技巧"，但还有许多其他方法，但我想你明白了。如果您有多个键字段，则还应在key2的注释中包括编码，并在必要时为key3复制等。

数据行类似于itab的行。
 DATA count_key TYPE i。
 DATA delete_key类型为boole_d。

 按键排序itab 1。  " key2，...
 在itab INTO行上环行。
   在新键1。
    清除：count_key，delete_key。
   ENDAT。
   "在新键2。
   "清除：count_key，delete_key。
   " ENDAT。
   向count_key加1。
   在key1的末尾。
     如果count_key> 1。
       delete_key = abap_true。
     万一。
   ENDAT。
   如果delete_key = abap_true。
     删除itab WHERE key1 = line-key1。  " AND key2 = line-key2。
   万一。
 结局。