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

就用你抄的那个代码就可以,把最大的存入数组,然后从数组中提出来,用LEFT或者RIGHT函数取得你想要的字,转成数值加+1再转成字符与前面的实符合并,搞定

[此贴子已经被作者于2006-8-21 18:12:47编辑过]

还有一点就是
删除以后里面的编号要变，不知道怎么处理。
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
请问是怎么回事情啊。
谢谢！

用“calculate max(序号) to a”
代替“select max(序号) from wm into array a"