不要这样做，编号没有必要可以追求连续。

编号就是某一行的唯一标记，就像人的身份证号码，不能因为某个人的过世，其他人的身份证号码就要重新编过。

但是我的自动编号还有一个用途，是用来设别生产流程顺序的（排序）；如果在生产过程中发现此流程不合理，或都需要在中间增加一道工序；这样原来生产流程就不对了；因为以目前编号的方法新增的流程就在最后，而这不是我想要的；

这个问题该怎么解决？

呵呵，简单：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目13.table

5楼说的问题确实存在，但在我的项目里用上狐爸的方法，再稍做修改 ；这个问题就不存在了；

狐爸 ，虽然用了你的方法把问题解决了，但是我还不懂你以下代码的逻辑，能不能帮忙解释一下呀？与帮助介绍的自动编号的方法有什么不同？劳驾了

Dim cnt As Integer =1 [定义个初始编号]
        If e.NewValue > "" Then [如果有新值]
            For Each dr As DataRow In DataTables("表A").Select("类别 = \'" & e.NewValue & "\'","_SortKey")
                dr("编号") = e.NewValue & "-" & Format(cnt,"000")
                cnt = cnt + 1
            Next
        End If
        cnt = 1
        If e.OldValue > "" Then 【如果存在旧值】
            For Each dr As DataRow In DataTables("表A").Select("类别 = \'" & e.OldValue & "\'","_SortKey")
                dr("编号") = e.OldValue & "-" & Format(cnt,"000")
                cnt = cnt + 1
            Next
        End If