DATA: BEGIN OF ITAB OCCURS 10,
        COL1 TYPE C,
        COL2 TYPE I,
      END OF ITAB.
DO 3 TIMES.
  APPEND INITIAL LINE TO ITAB.
  ITAB-COL1 = SY-INDEX. ITAB-COL2 = SY-INDEX ** 2.
  APPEND ITAB.
ENDDO.
LOOP AT ITAB.
  WRITE: / ITAB-COL1, ITAB-COL2.
ENDLOOP.

可以不可以请哪位高手解释一下这个程序，还有
LOOP AT ITAB.
  WRITE: / ITAB-COL1, ITAB-COL2.
ENDLOOP.
这个语句的具体用法

这个很难用文字来解释，其实你自己DEBUG一下就应该明白了，很简单的

这段就是用循环把内表中的这两个值遍历显示到屏幕,
在显示到屏幕时,的值,每次都是从内表的 Header中取得．

循环啊，内表中的数据要拿出来，
只能一条一条的捞取到headerline中，然后
显示出来啊！

给你介绍一个for loop
declare
cursor c is
select 'a' c_dump
from dual
union
select 'b'
from dual;
begin
  for i in c loop
    dbms_output.put_line(i.c_dump);
  end loop;
end;

希望可以对你有帮助

鸡同鸭讲

QUOTE:

---

原帖由 ganghz 于 2008-8-22 21:20 发表
给你介绍一个for loop
declare
cursor c is
select 'a' c_dump
from dual
union
select 'b'
from dual;
begin
  for i in c loop
    dbms_output.put_line(i.c_dump);
  end loop;
end;

---

abap吗？