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

测试不对，同时添加号码重复了

 不肯能。重复的概率，是极少极少的

测试采购编号的代码， 一个电脑增加了数据比如001， 另一电脑新增可以马上看出是002

而排产编号没有编号，一个电脑增加了数据比如001， 另一电脑新增还是001， 保存同步后就有两个001的编号，

请老师再看看

排产编号是不是同样的排产日期导致编号相同的呢？

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)) + 1 '获得最大排产单号的后两位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        e.DataRow("排产单号") = bh & Format(idx,"000")
        e.DataRow.Save
    End If
End If

老师，还是不对啊！写在DataColChanged事件中， 没错吧！

 

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

分明是可以一的：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目61.table

设置代码之前，原来已经存在编号，请先删除之，然后重置一下列。

重置一下列是不是所有的编号都变了， 那样数据就乱了

测试了一下， 如果重置列， 所有的数据全乱了， 怎么办呢？

你看看帮助的自动编号，认真看看，想想为什么帮助充值列没有问题？

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

 

想不通你再提问。