以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：重号事宜  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90988)
--  作者：刘异
--  发布时间：2016/9/27 10:14:00
--  求助：重号事宜

老师好：

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

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

多谢！ 

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
--  作者：有点蓝
--  发布时间：2016/9/27 10:32:00
--  
代码没有问题。这行方式如果是多客户端或者多任务并发的情况下，没有办法避免重号。

还是看看OpenQQ的编码控制吧：http://www.foxtable.com/webhelp/scr/3008.htm
--  作者：zhy400137
--  发布时间：2016/9/27 10:39:00
--  
跟贴问一下，帮助中的《网络环境下的复杂编号》一节中的方法，是在多并发的状况下，是否会产生重号？
非OPENQQ方法，谢谢！
--  作者：刘异
--  发布时间：2016/9/27 10:40:00
--  

哦
--  作者：刘异
--  发布时间：2016/9/27 10:55:00
--  

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

多谢！！
--  作者：有点蓝
--  发布时间：2016/9/27 10:57:00
--  
回复3楼，会