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

    遇到一个有点奇怪的问题，就是编号有时可以生成，有时就无法生成，我的代码是这样写的，当它无法生成编号时，我就将红色部分的改成“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