declare cursor TAGENTMENUd is select * from TAGENTMENU where 1=1;-- 获取游标begin--遍历查询出的表 (注意 tn是整条记录) for tn in TAGENTMENUd loop--取出旧表字段循环插入新表insert into TAGENTMENUROLE values('000000001',tn.ID); end loop;end;