怎样实现自动添加记录号？？
怎么样才能自动添加记录号？？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， 请朋友指点，先谢了
