'**************************************************************************************
'* 生成訂單號，先從數據庫中檢索訂單記錄，而后根據已有的信息自動生成訂單號

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

If kuangjia = 1 Then ' kuangjia=1 說明的該產品是保稅加工產品，否則是一般貿易的產品
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

總結

以上是生活随笔為你收集整理的生成订单号的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。