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

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

因为你没保存,所以在数据库里找不到数据  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")

            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

@有点甜：

 如果你用sqlcompute，那么，你就需要在最后对此行save一下

 

 e.DataRow.Save

保存完还是一样。

 一次操作一条问题不大，多条操作需要其他辅助

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

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

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

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

    Else

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

            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")

            e.DataRow.Save

        End If
End If

可以了，谢谢飞飞！