'**************************************************************************************
'* 生成訂單號(hào)，先從數(shù)據(jù)庫(kù)中檢索訂單記錄，而后根據(jù)已有的信息自動(dòng)生成訂單號(hào)

Dim rs As ADODB.Recordset
Dim sn As Double
sn = 0

If kuangjia = 1 Then ' kuangjia=1 說(shuō)明的該產(chǎn)品是保稅加工產(chǎn)品，否則是一般貿(mào)易的產(chǎn)品
strk = "BP"
Else
strk = "AP"
End If

Set rs = WorkFlowConnect.Execute("select * from tbdd where left(DDH,2)='" & strk & "'")
If rs.RecordCount > 0 Then
While Not rs.EOF
If CDbl(Right(rs("DDH"), 6)) > sn Then
sn = CDbl(Right(rs("DDH"), 6))
End If
rs.MoveNext
Wend
sn = 1000000 + sn + 1
txtDDH = strk & Right(CStr(sn), 6)
Else
txtDDH = strk & "000001"
End If

End Sub

總結(jié)

以上是生活随笔為你收集整理的生成订单号的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。