主题：如何解决在不同电脑上同时录入销售单 销售单编号重复的问题？

在同一台电脑上 测试，打开网络版 sql ，打开出库单窗口 会出现白屏的情况 ，是不是读取数据 太慢 还是其他问题

假如编码是根据日期算出来的，同时选的同一日期，单子都还没有保存，销售单号是一样的，如果第一个人保存了，第二个开的单子号码 会覆盖第一个人开的号码，怎么办？

对

帮忙看下这段代码 错在哪里

按钮保存重新生成 编码

Dim d As Date = Tables("销售单").current("销售日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As String = "XS" &  Format(d,"yyMMdd") '生成销售单号的前6位,4位年,2位月.
     If Tables("销售单").current("销售日期").StartsWith(bh) = False '如果销售单号的前6位不符
                Dim max As String
                Dim idx As Integer
                max = DataTables("销售单").sqlCompute("Max(销售单号)","销售日期 = '" & d & "' And [_Identify] <> " & Tables("销售单").current("_Identify")) '取得当天的最大销售单号
                If max > "" Then '如果存在最大销售单号
                    idx = CInt(max.Substring(9,3)) + 1 '获得最大销售单号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
Tables("销售单").current("销售单号") = bh & "-" & Format(idx,"000")
            '    DataTables("销售单明细").ReplaceFor("销售日期",e.newvalue)
             '   DataTables("销售单明细").ReplaceFor("销售单号", Tables("销售单").current("销售单号"))
            End If
msgbox(Tables("销售单").current("销售单号"))

我想放在按钮里 根据日期 重新生成销售单号

多谢

保存按钮  重新生成编号 代码如下

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")) '取得当天的最大销售单号
If max > "" Then '如果存在最大销售单号
    idx = CInt(max.Substring(9,3)) + 1 '获得最大销售单号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
Tables("销售单").current("销售单号") = bh & "-" & Format(idx,"000")
msgbox(Tables("销售单").current("销售单号"))

两台电脑同时开单，当前面一个人保存了，我这里按保存按钮看看重新生成代码 还是跟第一个一样，退出重新打开才是新的