主题：[求助]关于自动生成编号的问题？

    遇到一个有点奇怪的问题，就是编号有时可以生成，有时就无法生成，我的代码是这样写的，当它无法生成编号时，我就将红色部分的改成“compute”，然后就可以生成了。当本来红色字体部分就是“compute”时，也是有时可以生成编号，有时无法生成编号。当它无法生成编号时，我将它改成“SQLCompute”,然后就又可以生成了。请问为什么会这样呢？如果可以一直自动生成呢？谢谢！

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

    If e.DataRow.Isnull("出仓日期") = True Then

        e.DataRow("出仓单号") = Nothing

    Else

        Dim bh As String = "CC" & Format(e.DataRow("出仓日期"),"yyMMdd")

        If e.DataRow("出仓单号").startswith(bh) = False Then

            Dim idx As Integer

            Dim max As String

            max = DataTables("原材料出仓主表").SQLCompute("max(出仓单号)","出仓单号 like '" & bh & "*'")

            If max >"" Then

                idx = cint(max.SubString(8,3)) + 1

            Else

                idx = 1

            End If

            e.DataRow("出仓单号") = bh & Format(idx,"000")

        End If

    End If

End If

@有点甜：

保存完还是一样。

可以了，谢谢飞飞！

好奇怪，单号一会儿能自动生成，一会儿又不能自动生成。本想做例子发上来，自己先测试一下例子，例子又没什么问题。不知是不是与其它代码产生冲突了呢？查了一下，又没查到。请问有什么方法可以将问题查出来呢？

已经注释掉其它代码，关闭项目，重新打开时，测试结果还是不行。应该是每当系统重新打开时，无法自动生成。然后将原来的行删掉后，再点几下别的表格，再回到那个表测试，就可以了。究竟是什么原因呢？

纠结了好长时间的问题，还是无法解决，本来想放几天再看看能否有解决方法，但还是不行。做了例子后，又没有问题，所以无法上传例子。现在的问题是在新打开表时，点新增录入时间，无法自动生成编号。但只要点选一下表属性，其它不用做任何操作，再去新增录入时间，就可以自动生成编号了。不知这是什么原因？如果不点选属性，无论怎样新增，都是无法自动生成。

bin目录删除后，还是一样

精简了一些表格，剩下的表格除了物料信息表以外，都是需要自动生成编号的。

是这样吗？等我再试试，如果是这样就好了，谢谢！