求救~~求救~~

一个小的自动编号程序
按这个方式排列
q000000s
q000001s
q000002s
请大家帮忙看能写出来吗？
已经耗了我2天的时间了。
希望这里能给我带来点灵感
小狼在这里先谢谢各位了

 

就是一个自动编号的程序啊~
编号第一个值是q000000s
第二个编号是q000001s
第三个值是q000002s
就这样一直循环下去

 

数据库~

 

叶子，我把我写的程序给你看看。
帮我检查一遍。

Function SNNUM(tname, first_char, brief_city)
Dim rs, sql, temp_num, insect_num, num, cn, num1,
Set rs = myServer.CreateObject("ADODB.Recordset")
sql = "select * from "&tname&" where sn like '%"&brief_city&"%' and sn like '%"&first_char&"%' order by ssdate DESC;" '查找同类编号
rs.Open sql, cn, 3, 3
If rs.EOF Then
num1 = brief_city &"000000"& first_char '没有同类编号则从000000开始
SNNUM = num1 '返回编号
Else
temp_num = mid(rs("sn"), 3,6) + 1 '有的话取得数值部分并加1
if Len(temp_num)=1 then
insect_num = "00000" &temp_num '给整数前补0
else if Len(temp_num)=2 then
insect_num = "0000"&temp_num
else if Len(temp_num)=3 then
insect_num = "000"&temp_num
else if Len(temp_num)=4 then
insect_num = "00"&temp_num
else if Len(temp_num)=5 then
insect_num = "0"&temp_num
else if Len(temp_num)=6 then
insect_num = temp_num
end if
Next
SNNUM = brief_city&insect_num&first_char '返回编号
End If
End Function

 

把next去掉

~~
我想知道我那个程序理论上能通过吗