自动编号没变号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim bh As String = "CGDD-" & Format(Date.Today(),"yyyyMMdd")

Dim flt = "采购单号 like '" & bh & "%'"

Dim max = e.DataTable.Compute("Max(采购单号)",flt)

Dim idx As Integer

If max > "" Then '如果存在最大单据编号

idx = CInt(max.Substring(bh.Length,4)) + 1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("采购单号") = bh & Format(idx,"-0000")

上面代码在内表关联，执行没有变号，一直就是CGDD-20191231-0001，

1.要怎么处理？

2.如何在多并发，多人录入采购单，能不重复，及如果删除后能”废号“可以再利用？

主题：自动编号没变号