我设置了个程序，增加行时，编号列自动赋值（在最大号码上+1），保证编号唯一。程序是联网的，可多人同时操作。但是，当多人同时增加行时，因为网络延迟吧，编号列的值会重复，比如，有两个0002的编号，相关代码贴出如下，麻烦大神们予以建议或优化，幼狐感激不尽！

一、增加行按钮代码：

If CurrentTable.name = "单位设置" Or CurrentTable.name = "历史库" Then
    messagebox.show("此数据库禁止授权 , 操作取消 !")
Else
    If _usergroup = "编辑" Then
        CurrentTable.DataTable.AddNew()
        CurrentTable.save()
    Else
        messagebox.show("未经授权 , 操作取消 !")
    End If
End If

二、表内 DataRowAdding 的代码

Dim max As String
Dim idx As Integer
max = e.DataTable.SqlCompute("Max(编号)","[_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
If max > "" Then \'如果存在最大编号
    idx = CInt(max.Substring(0,5)) + 1
Else
    idx = 00001 \'否则顺序号等于1
End If
e.DataRow("编号") = Format(idx,"00000")
e.DataRow.Save

1、代码要写到dataRowAdded事件，不是ing事件。

2、看看 http://www.foxtable.com/webhelp/scr/1994.htm

http://www.foxtable.com/webhelp/scr/3008.htm

3、你的编号，不一定要连续，你可以把_Identify作为编号的一部分，这样能区别唯一。

那就加入_Identify处理，如生产 00001-001、00002-002、00002-002 这样的编号，即便前面相同，后面都不同。

目前这个问题，除非你用openQQ，否则延时、并发的问题都不能解决。

Select Case e.DataCol.name
    Case "创建日期"     \'由创建日期自动生成计划明细编码
        If e.DataRow.IsNull("创建日期") Then
            e.DataRow("编码") = Nothing
        Else
            If e.DataRow.IsNull("编码") Then

                e.DataRow.Save \'保存之后，才会获取_Identify值
                Dim d As Date = e.DataRow("创建日期")
                Dim bh As String = Format(d,"yyMM") 
                Dim str As String = Format(e.DataRow("_Identify"),"00000")    
                e.DataRow("计划明细编码") = "JH" & bh & "-" & str
            End If
        End If
End Select