【移动开发】销售日编号不能按照顺序递增，易乱，求解！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

【移动开发】销售日编号不能按照顺序递增，易乱，求解！

此主题相关图片如下：2.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:服务器端.zip

代码如下：

Static Lastbh As String '通过这个Static变量可以访问上一次生成的编号,避免重复Compute

Dim prefix As String = Format(Date.now,"yyyyMMdd") '本次编号前缀

If Lastbh >"" AndAlso Lastbh.SubString(0,8) = prefix Then '如果上一次生成编号的前缀和本次相同

Lastbh = prefix & "-" & Format(Cint(Lastbh.SubString(8,3)) + 1,"000") '在上次编号的基础上递增1

Else

'取数据表中同前缀的最大编号

Dim max As String=DataTables("客户资料").sqlCompute("Max(销售日编号)","销售日编号 like '" & prefix & "%'")

If max = "" Then '如果不存在同前缀的编号

Lastbh = prefix & "001" '同前缀的第一个编号

Else

Lastbh = prefix & "-" & Format(CInt(max.SubString(8,3)) + 1,"000") '在同前缀最大编号的基础上递增1

End If

Return Lastbh

主题：【移动开发】销售日编号不能按照顺序递增，易乱，求解！