DATA:BEGIN OF itab OCCURS 0,
                  anln TYPE c,
         anlm(2) TYPE c,
        anlp(3) TYPE c,
END OF itab.

DATA itab1 LIKE itab OCCURS 0 WITH HEADER LINE.
DATA itab2 LIKE itab OCCURS 0 WITH HEADER LINE.

itab-anln = 'A'.
APPEND itab.

itab1-anln = 'A'.
itab1-anlm = '01'.
APPEND itab1.

itab1-anln = 'A'.
itab1-anlm = '02'.
APPEND itab1.

itab2-anln = 'A'.
itab2-anlp = '&1'.
APPEND itab2.

itab2-anln = 'A'.
itab2-anlp = '&2'.
APPEND itab2.

itab2-anln = 'A'.
itab2-anlp = '&3'.
APPEND itab2.

怎么将这三个表合并结果如下：
   A     01    &1  
    A      02   &2
    A             &3

up

TYPES:BEGIN OF ty_itab,
                  anln TYPE c,
         anlm(2) TYPE c,
        anlp(3) TYPE c,
END OF itab.

DATA: itab TYPE SORTED TABLE of ty_itab WITH NON-UNIQUE KEY anln,
          itab1 TYPE TABLE of ty_itab,
          itab2 TYPE TABLE of ty_itab.

DATA: wa like line of itab, wa1 like wa.

。。。

LOOP AT itab1 INTO wa1.
  READ TABLE WITH TABLE KEY anln = wa1-anln INTO wa.
  wa-anlm = wa1-anlm.
  MODIFY TABLE itab FROM wa.
ENDLOOP.

LOOP AT itab2 INTO wa1.
  READ TABLE WITH TABLE KEY anln = wa1-anln INTO wa.
  wa-anlp = wa2-anlp.
  MODIFY TABLE itab FROM wa.
ENDLOOP.

[ 本帖最后由 awarecan 于 2008-5-6 14:18 编辑 ]

这样写不对吧，这样写怎么写都是一条数据压

哦，好像是不对。

反正类似的算法啦，你自己改吧，关键就是用READ TABLE

用collect