主题：[求助]网络自动编号问题

我的编码结构是SMP000000， 前面三位不变， 后面六位为顺序号， 如何做

建立一个SQL表，因为前面三位不变， 后面六位变， 所以编号表只做顺序号， 不要编号列， 对吗？

请老师看看下面建立的顺序号列对吗？

 

此主题相关图片如下：qq截图20150710093808.png

老师， 这个编号是我链接各个表的关键编号，我不要表达式， 所以选择数据列做， 不想用表达式列去做

用表达式列， 一旦系统变更，编号表达式列的数据更改， 所有的关联全部就乱了， 怎么办呢， 已经有几千条数据了

原来用的是这个e.DataRow("产品编号")=e.DataRow("产品编号表达式")， 放在在DataRowAdded时间里

现在用的是这个

Dim max As String
max = e.DataTable.Compute("max(产品ID)")
If max > "" Then
    Dim idx As Integer
    idx = CInt(max.SubString(2,6)) + 1
    e.DataRow("产品ID") = "MS" & Format(idx,"000000")
Else
    e.DataRow("产品ID") = "MS" & "000001"
End If

现在的问题就是不同的人录入， 出现重号，导致系统出错！

所有的表导入产品ID生成， 其他字段都是关联字段， 一旦产品ID改变， 所有的数据都改变了

老师， 我这样设计可以吗？

建立一个产品ID表达式用 _Identify 生成

建立一个产品ID列 e.DataRow("产品ID")=e.DataRow("产品ID表达式")，

等待老师回复

老师这样做是不是多人同时录入号码就不会重复了， 对吗？

非常感谢！

'---------采购单号自动根据厂家编号年份生成--------------------------------
Select e.DataCol.Name
    Case "订货日期","厂家编号"
        If e.DataRow.isnull("采购单号") Then
            If e.DataRow.IsNull("订货日期") OrElse e.DataRow.IsNull("厂家编号") Then
                e.DataRow("采购单号") = Nothing
            Else
                Dim d As Date = e.DataRow("订货日期")
                Dim bh As String = "SM-" & e.DataRow("厂家编号") & "" & Format(d,"yy") & "" '生成编号的前缀
               
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "采购单号 like '" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(采购单号)",flt) '取得该年的相同厂家编号的最大采购单号
                If max > "" Then '如果存在最大采购单号
                    idx = CInt(max.Substring(bh.Length,2)) + 1 '获得最大采购单号的后两位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("采购单号") = bh & Format(idx,"00")
            End If
        End If
End Select
'---------采购单号自动根据厂家编号年份生成--------------------------------

 

老师，这种编号多人操作如何编码重复呢？