主题：求助：重号事宜

老师好：

我不知道是不是代码写得有问题，系统运行几个月了，但是这几天发现有重号的现象。

请老师抽时间看看，是不是代码写得不好。

多谢！ 

If e.DataCol.Name = "出货日期" Then

    If e.DataRow.IsNull("出货日期") Then

        e.DataRow("防伪条形码编号") = Nothing

    Else

        Dim bh As String = Format(e.DataRow("出货日期"),"yyyyMMdd") '取得编号的8位前缀

        If e.DataRow("防伪条形码编号").StartsWith(bh) = False '如果编号的前8位不符

            Dim max As String

            Dim idx As Integer

            max = e.DataTable.sqlCompute("Max(防伪条形码编号)","出货日期 = #" & e.DataRow("出货日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号

            If max > "" Then '如果存在最大编号

                idx = CInt(max.Substring(8,4)) + 1 '获得最大编号的后三位顺序号,并加1

            Else

                idx = 1 '否则顺序号等于1

            End If

            e.DataRow("防伪条形码编号") = bh & "" & Format(idx,"0000")

            e.DataRow.Save

        End If

    End If

End If

代码没有问题。这行方式如果是多客户端或者多任务并发的情况下，没有办法避免重号。

跟贴问一下，帮助中的《网络环境下的复杂编号》一节中的方法，是在多并发的状况下，是否会产生重号？

哦

现在是多人同时操作同一张表出现重号，以前是一个人操作一张表不会出现这种情况。

多谢！！

回复3楼，会