我新做了市场的订单号，一点新增订单按键，就会按照日期，然后递增的出现订单号，代码如下：
Dim r As Row =Tables("市场").AddNew()
Dim max As String
max = DataTables("市场").Compute("Max(市场单号)","下单日期 = #" & Date.Today & "#")
If max = "" Then
max=Format(Date.Today,"yyyyMMdd") & "001"
Else
max = Format(Date.Today,"yyyyMMdd") & CStr(Val(Right(max,3)) + 1).PadLeft(3,"0")
End If
r("市场单号") =max
但是我发现，不知道怎么搞得（或许是多人在操作的原因），有时候出现了就会重复的订单号，如 两个 20140225002
我想保持这个订单号自动产生，不重复，保持唯一性，该如何改写代码？
[此贴子已经被作者于2014-2-25 13:02:04编辑过]
加好友 
发短信
Post By：2014/2/25 12:59:00 [只看该作者]
