主题：求助：编码问题 从1 2 3 4 5 6 7 8 9 10之后就一直是10 10 10 求解！

 呃，必须是固定格式比如 001、002、003 这样。

 

 如果要是 1、2、3...10、11 这种的话，就必须加一列辅助列，保存001、002、003那种

 就是用这段代码啊

 

    Dim bh1 As String = "瓮检技录受" &"〔" & Format(Date.Today,"yyyy") & "〕" & "52272500"
    Dim max1 As String
    Dim idx1 As Integer
    max1 = e.DataTable.Compute("Max(受理登记号)","受理登记号 Like '" & bh & "*'" )
    If max1 > "" Then '如果存在最大编号
        idx1 = CInt(max1.Substring(bh1.Length)) + 1 '获得最大编号的后三位顺序号,并加1
    Else
        idx1 = 1 '否则顺序号等于1
    End If
    e.DataRow("受理登记号") = bh1 &  Format(idx1,"000") & "号"

  Dim bh1 As String = "瓮检技录受" &"〔" & Format(Date.Today,"yyyy") & "〕" & "52272500"
    Dim max1 As String
    Dim idx1 As Integer
    max1 = e.DataTable.Compute("Max(受理登记号)","受理登记号 Like '" & bh & "*'" )
    If max1 > "" Then '如果存在最大编号
        idx1 = CInt(max1.Substring(bh1.Length,3)) + 1 '获得最大编号的后三位顺序号,并加1
    Else
        idx1 = 1 '否则顺序号等于1
    End If
    e.DataRow("受理登记号") = bh1 &  Format(idx1,"000") & "号"

 不可能会错。

下面这段，也要弄成 001、002、003 那种形式是才行啊。

 

Dim bh As String = "瓮检技录" &"〔" & Format(Date.Today,"yyyy") & "〕"
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(受理编号)","受理编号 Like '" & bh & "*'" )
If max > "" Then '如果存在最大编号
    idx = CInt(max.Substring(10,1)) + 1 '获得最大编号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If

e.DataRow("受理编号") = bh  &  Format(idx,"0") & "号"

 无语，看2楼。