Declare vStr varchar2(2000); n number(6); m number(6):=2; Begin for i in 1..20 loop m :=1; n := i; vstr := 'insert into tab2 values ( '; for a in 1..20 loop if n =1 then vstr := vstr||m||','; m := m +1; else vstr := vstr||n||','; n := n -1; end if; end loop; vStr := substr(vStr,1,length(vStr) -1); vStr := vStr ||')'; execute immediate vStr; dbms_output.put_line(vstr); end loop; End; /
楼主【Object_yao1】截止到2008-07-20 14:59:50的历史汇总数据(不包括此帖):
发帖的总数量:0 发帖的总分数:0 每贴平均分数:0
回帖的总数量:1 得分贴总数量:0 回帖的得分率:0%
结贴的总数量:0 结贴的总分数:0
无满意结贴数:0 无满意结贴分:0
未结的帖子数:0 未结的总分数:0
结贴的百分比:---------------------结分的百分比:---------------------
无满意结贴率:---------------------无满意结分率:---------------------
如何结贴请参考这里:http://topic.csdn.net/u/20080501/09/ef7ba1b3-6466-49f6-9d92-36fe6d471dd1.html
vStr varchar2(2000);
n number(6);
m number(6):=2;
Begin
for i in 1..20
loop
m :=1;
n := i;
vstr := 'insert into tab2 values ( ';
for a in 1..20
loop
if n =1 then
vstr := vstr||m||',';
m := m +1;
else
vstr := vstr||n||',';
n := n -1;
end if;
end loop;
vStr := substr(vStr,1,length(vStr) -1);
vStr := vStr ||')';
execute immediate vStr;
dbms_output.put_line(vstr);
end loop;
End;
/