Select e.DataCol.Name
    Case "类别"
        If e.DataRow.IsNull("类别") Then
            e.DataRow("编号") = Nothing
        Else
            Dim lb As String = e.DataRow("类别")
            If e.DataRow("编号").StartsWith(lb) = False \'如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(编号)","类别 = \'" & lb & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
                If max > "" Then \'如果存在最大编号
                    idx = CInt(max.Substring(2,3)) + 1 \'获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 \'否则顺序号等于1
                End If
                e.DataRow("编号") = lb & Format(idx,"000")
            End If
        End If
End Select

用这个生成编号，如果添加第一行，然后删除第一行，再继续添加就从编号2开始了

但是这个编号是有意义的编号，必须要做连续，有么有什么方法可以做到，求指教。

实在不行我就让他们手动录入

那就手动吧，也很方便：

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

连续自动编号例子：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=47316&replyID=&skin=1

也可以这样：

保存按钮：

Tables("表A").Filter = ""
Tables("表A").Sort = "工序名称"
For Each r As Row In Tables("表A").Rows
    r("工序编号") = r.Index + 1
Next
DataTables("表A").Save()