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

用代码，在datacochanged事件，在编码一生成的时候，立马保存；

编号确立，就应该保存。

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

按钮保存重新生成 编码

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("销售单号"))

BeforeAddDataRow事件，加入代码

Dim d As Date = e.DataRow("销售日期")

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

Dim max As String
Dim idx As Integer
max = e.DataTable.sqlCompute("Max(销售单号)","销售日期 = '" & d & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得当天的最大销售单号
If max > "" Then '如果存在最大销售单号
    idx = CInt(max.Substring(9,3)) + 1 '获得最大销售单号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("销售单号") = bh & "-" & Format(idx,"000")

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

多谢