销售单编号根据什么设计最科学？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

销售单编号根据什么设计最科学？

特别是在多用户下操作

原本的生成有问题？

多用户也可以啊，不是告诉过你了么。

就是几个用户同时开单销售单号采取保存的时候重新生成一次，做到了不重复，但是碰到一个问题，如果修改日期了，会影响以后生成的销售单号，因为销售单号是根据日期来计算的

重新生成的代码如下

''重新生成销售单号

Dim d As Date = Tables("销售单").current("销售日期")

Dim bh As String = "XS" & Format(d,"yyMMdd") '生成销售单号的前6位,4位年,2位月.

Dim max As String

Dim idx As Integer

max = DataTables("销售单").sqlCompute("Max(销售单号)","销售日期 = '" & d & "' And [_Identify] <> " & Tables("销售单").current("_Identify")) '取得当天的最大销售单号

'max = DataTables("销售单").sqlCompute("Max(销售单号)","销售日期 = '" & d & "'") '取得当天的最大销售单号

If max > "" Then '如果存在最大销售单号

idx = CInt(max.Substring(9,3)) + 1 '获得最大销售单号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

Tables("销售单").current("销售单号") = bh & "-" & Format(idx,"000")

vars("djh")=Tables("销售单").current("销售单号")

forms("销售单").Controls("Label1").text=vars("djh")

''重新生成销售单号

如果有人修改了以前销售单日期，那么就会影响新保存的销售单号计算了，不修改日期没有问题的

那你就不要根据销售日期生成啊。

直接根据今天的日期生成。 Date.Today

也不对啊第二笔销售单号怎么取数

''根据当天日期重新生成销售单号

Dim d As Date = date.today

Dim bh As String = "XS" & Format(d,"yyMMdd") '生成销售单号的前6位,4位年,2位月.

Dim max As String

Dim idx As Integer

max = DataTables("销售单").sqlCompute("Max(销售单号)","销售日期 = '" & d & "' And [_Identify] <> " & Tables("销售单").current("_Identify")) '取得当天的最大销售单号

'max = DataTables("销售单").sqlCompute("Max(销售单号)","销售日期 = '" & d & "'") '取得当天的最大销售单号

If max > "" Then '如果存在最大销售单号

idx = CInt(max.Substring(9,3)) + 1 '获得最大销售单号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

Tables("销售单").current("销售单号") = bh & "-" & Format(idx,"000")

vars("djh")=Tables("销售单").current("销售单号")

forms("销售单").Controls("Label1").text=vars("djh")

''重新生成销售单号

有重复单号的

max = DataTables("销售单").sqlCompute("Max(销售单号)","销售单号 like '" & bh & "-%' And [_Identify] <> " & Tables("销售单").current("_Identify")) '取得当天的最大销售单号

主题：销售单编号 根据什么设计 最科学？