自动增加的市场订单号怎么能让它保持唯一性？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动增加的市场订单号怎么能让它保持唯一性？

共有3823人关注过本帖树形打印复制链接主题：自动增加的市场订单号怎么能让它保持唯一性？

lsy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/2/25 13:10:00 [显示全部帖子]

http://www.foxtable.com/help/topics/1994.htm

lsy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/2/25 13:12:00 [显示全部帖子]

还可以试试，看能不能改善：

Dim r As Row =Tables("市场").AddNew()

Dim max As String

max = DataTables("市场").SQLCompute("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

主题：自动增加的市场订单号怎么能让它保持唯一性？