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

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

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

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

等待老师回复

 直接在DataRowAdded写代码

e.DataRow.Save

e.DataRow("产品ID") = "bh-" & Format(e.DataRow("_Identify"), "000000")

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

是的，不会重复，因为_Identify列就是不重复的。

'---------采购单号自动根据厂家编号年份生成--------------------------------
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
'---------采购单号自动根据厂家编号年份生成--------------------------------

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

这样才不会重复

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") & "" '生成编号的前缀
                e.DataRow.Save
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "采购单号 like '" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.SQLCompute("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")
                e.DataRow.Save
            End If
        End If
End Select

If e.DataCol.Name = "排产日期" Then
    If e.DataRow.IsNull("排产日期") Then
        e.DataRow("排产单号") = Nothing
    Else
        Dim d As Date = e.DataRow("排产日期")
        Dim bh As String = "P" & Format(d,"yy-MM") & "" '生成编号的前缀
        e.DataRow.Save
        Dim max As String
        Dim idx As Integer
        Dim flt As String
        flt = "排产单号 like '" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify")
        max = e.DataTable.sqlCompute("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")
        e.DataRow.Save
    End If
End If

老师，这个这样改对吗？

对。有什么问题？