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

时　间:2009-06-28 18:02:03
作　者:   ID：4070  城市：杭州
摘　要:实现对字符型编号自动加1
正　文:

實現對字符型編號自動加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
    AutoNum = StrReverse(Val(StrReverse(strNum)))
    AutoNum = Left(strNum, Len(strNum) - Len(AutoNum)) & Format((AutoNum + 1), String(Len(AutoNum), "0"))
End Function

Access软件网官方交流QQ群 (群号:483923997) 　　　　　　Access源码网店