自动编号,实现对字符型编号自动加1。

时　间:2007-10-26 14:42:29
作　者:放飞梦想   ID：60  城市：南京
摘　要:自动编号,实现对字符型编号自动加1
正　文:

?auto_number('北京001‘)
显示为：北京002
?auto_number('001‘)
显示为：002

程序虽只有两行，但用到了好几个内置的字符串函数，还有前导0的处理：

StrReverse：字符串取反

Val：字符串转数值，取字符串左边数字，包括空格

Left：取字符串左边指定个数的子字符串，对应的还有Right,Mid

Len：返回字符串长度

Format：格式化字符串，这里是返回带前导0的数值

String：返回重复指定个数的字符的字符串，类似的有Space函数

Function AutoNum(strNum As String) As String
If Right(strNum, 1) = "0" Then
AutoNum = Left(strNum, Len(strNum) - 1) & "1"
Else
AutoNum = StrReverse(Val(StrReverse(strNum)))
AutoNum = Left(strNum, Len(strNum) - Len(AutoNum)) & Format((AutoNum + 1), String(Len(AutoNum), "0"))
End If
End Function