关于序列的触发器

当我插入表A 以后
for each row
begin
insert into 表B (xh,tijxm) values (lpad(grzbxl.nextval,4,'0'),:new.tijxm);
end;表B:显示如下:
xh tijxm
0001 甲
0002 乙
0003 丙
以下是我要问的
当我再次触发这个触发器的时候 xh 仍然从1开始
请问这个触发器该如何改?
有人要我这样改动,可不能编译
for each row
begin
insert into 表B (xh,tijxm) values (lpad(grzbxl.nextval,4,'0'),:new.tijxm);
drop sequence grzbxl.
create sequence grzbxl.
end;