标题: 实现自动编码功能! [打印本页] 作者: jimmyye0011 时间: 2007-8-14 16:05 标题: 实现自动编码功能! 在软件开发中,经常会碰到录入基础资料编码的功能,比如供应商编码或助记码、客户及物料的编码或助记码.而用户大多希望在录入一个编码保存后,系统能自动在新增记录上显示规则的编码,比如输入:A0001能在新记录上显示A0002;KS09新增后自动显示下一记录编码KS10.
以下我从软件中提取自动编码函数,可实现大多数自动编码的功能:
Public Function AUTOINCREE_CODE(CONTENT As Variant) As String
On Error GoTo err
Dim i, b, itext
Dim STRCONT As String, ADDTIONZERO As String
Dim num As Long
num = 1
itext = CONTENT
Do
i = Mid(itext, Len(itext) - num + 1, 1)
If Len(i) = 0 Or IsNull(i) Then Exit Do
b = Asc(i)
If b >= 48 And b <= 56 Then
STRCONT = Mid(itext, 1, Len(itext) - num) & (i + 1) & ADDTIONZERO
STRCONT = Trim(STRCONT)
Exit Do
ElseIf b = 57 Then
ADDTIONZERO = ADDTIONZERO & "0"
num = num + 1
Else
If num = 1 Then
STRCONT = itext & "1"
Else
STRCONT = Mid(itext, 1, Len(itext) - (num - 1)) & 1 & Trim(ADDTIONZERO)
End If
Exit Do
End If
Loop
AUTOINCREE_CODE = STRCONT
Exit Function
err:
MsgBox err.Description, vbInformation, GLOTITLE
Exit Function
End Function作者: 5988143 时间: 2007-8-14 17:00
哈哈,可是個好東東哦!
謝謝樓豬分享!作者: playtime 时间: 2008-7-7 16:09
非常有用，谢谢作者: xuwenning 时间: 2008-7-7 16:23
收藏[:50]作者: zhaohuaw 时间: 2008-7-7 16:50
[:50] 谢谢分享！作者: chenlugen 时间: 2008-8-20 19:47
这个函数怎么用啊,,,,请高手指点指点一个啊,,,,,[:30] [:31]作者: tdhgj 时间: 2009-2-23 17:29
good作者: z12509258 时间: 2010-3-30 09:26
学习学习 作者: 心里痒痒 时间: 2010-4-2 10:51
学习，收藏作者: ayld 时间: 2010-4-2 14:03
粘贴在access的那里，如何引用？作者: shines 时间: 2011-1-14 14:05
多谢分享