主题：自动编号，多人新增条目，编号重复问题

甜版，我是这样测试的，我将项目拷贝到虚拟机里一份，然后主机用账号1登陆，虚拟机用账号2登陆，然后会出现一个问题，就是先登陆的账号能够正确获得后台数据的序列号，而后登陆的账号就只能获取它自己table的序列号，我想知道是否是数据库对账号有限制，还是其他原因。我这项目是新建的，只用了您的代码来做编号测试，没有其他任何代码。

1、不需要用【虚拟机】来测试。

 

2、在同一台电脑上，打开项目两次、三次，然后分别在里面测试，即可。

 

甜版，找到问题了，如下加入了黄色代码就可以了，不然在筛选时用的临时的_identify值就会出问题。还是要谢谢甜版细心的服务，后续可能还有很多问题要请教。

e.DataRow.save '***必须在sqlcompute前先保存,才能获得当前行的真实的_identify值*** If e.DataRow("申购单号").StartsWith(bh) = False '如果申购单号的前6位不符     Dim max As String     Dim idx As Integer     max = e.DataTable.sqlCompute("Max(申购单号)","日期 >= '" & fd & "' And 日期 <= '" & ld & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大申购单号 msgbox(max)     If max > "" Then '如果存在最大申购单号         idx = CInt(max.Substring(6,4)) + 1 '获得最大申购单号的后四位顺序号,并加1     Else         idx = 1 '否则顺序号等于1     End If     e.DataRow("申购单号") = bh & Format(idx,"0000")     e.datarow.save End If

你的e.datarow.save代码，应该写到datarowAdded事件去。

我是把所有代码都放到dararowadded里了

 

ok，也可以的。