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

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

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

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

 这句改一下

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

 不可能不行

刚开始生成编号 放在

BeforeAddDataRow事件，新增销售单 出错了

哦，写错了，应该放到 BeforeSaveDataRow

用在afterload 事件

那你就写到afterload事件啊，同时，你不是说先输入日期才生成的么。

不会做就请上传例子