怎样实现自动添加记录号？？

怎么样才能自动添加记录号？？

if val(substr(进厂编号,6,3))!=0
thisform.text1.value=substr(dtos(date()),3,4)+"-"+str(val(substr(进厂编号,6,3))+1,3,0)
else
thisform.text1.value=substr(dtos(date()),3,4)+"-"+"0"+"0"+"1"
endif

上面是我编写的代码，可是还不能实现。 假如表中已有0504-002这个记录，运行结果为
0504-   3，中间有两个空格，怎样才能实现为0504-003，假如表中最后的记录为0504-009，
0504-019，怎么样才能进位到0504-010，0504-020，  请朋友指点，先谢了

thisform.text1.value=substr(dtos(date()),3,4)+"-"+str(val(substr(进厂编号,6,3))+1,3,0) 改为: thisform.text1.value=substr(dtos(date()),3,4)+"-"+; right('000'+ alltrim(str(val(substr(进厂编号,6,3))+1)),3) thisform.text1.value=substr(dtos(date()),3,4)+"-"+"0"+"0"+"1" 可以为: thisform.text1.value=substr(dtos(date()),3,4)+"-"+"001"

谢谢版主~~~
版主真是太好了~~