Question

vb自动生成编号

开发环境VB+SQL2000。想实现自动生成计划单号，计划单号格式为PL+yyyymmdd(即当天日期)+xxxx
要求在当天已有计划单号时，生产下一个单号时后4位编码自动加1，如果在当天没有计划单号时，最后4位编码为0001。现在代码设计遇到了问题，希望有懂得这方面知识的大神帮帮忙，万分感谢！！！

Answer 1

没有实际的数据库表等，只能给你大概算法

在数据库中查询计划单号的前面几位是PL+yyyymmdd的最大值记录

如果没有返回值，则新编号是PL+yyyymmdd+0001

如果有返回值，取返回值的后四位，做加1处理，得到新编号

追问

数据库表名为生产计划表，这个编号的列名为计划单号，能写出自动得到新计划单号的代码么

追答

只能写一个片段，你自己调试

若conn是你的数据库连接
left(计划单号,10)这句是取计划单号的左10位，在ACCESS数据库可以行得通，在不同的数据有不同的函数，自己参照
function newid()
stri="PL" & year(now) & right("0" & month(now),2) & right("0" & day(now),2)

sql="select max(计划单号) as jhdh from 生产计划表 where left(计划单号,10)='" & stri & "'"

set rs=conn.execute(sql)

if not rs.eof then

ss=val(right(rs.fields("jhdh"),4))

stri=stri & right("0000" & (ss+1),4)

newid=stri

else
newid=stri & "0001"

end if

rs.close

set rs=nothing

end function