上次，我提过同样的问题，只不过不是清楚。
麻烦大家了
同时也感谢斑竹啊对我的谅解！
我现在做的系统，要求的是项目编号是由部门，日期，加上自动编号
如：部门：外贸
日期：20060821 （这里的日期是字符型，是手动输入的）
自动的编号：001
同时里面加一个B为型号，B不是数据有的
最后的项目编号为：“外B200606001” 现在我想的就是要001自动的编号
请大家帮帮忙！
谢谢了 ！

还有一点就是
删除以后里面的编号要变，不知道怎么处理。
select wm
if empty(序号)
pbno=alltrim('外B0608001')
else
select max(序号) from wm into array a &&查找表中最大的编号存入数组中
ss=val(substr(a(1),3))+1
xm=ALLTRIM("外"+"B"+left(alltrim(wm.日期)，8)+padl(alltrim(str(ss,10)),3,'0'))
红色的地方，是只该后面3位。不知道对不对？

我试了几次
出现数组A没有定义
找不到程序文件a,prg
请问是怎么回事情啊。
谢谢！