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

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

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

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

错误依旧为楼上

从字符串“001号”到类型“Integer”的转换无效。
输入字符串的格式不正确。

现在代码如下  不报错了  但是还是只到10就不走了

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

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

现在修正如下  但是不是1 2 3 4 5 6 7 8 9 10 11

而是001 002 003 004 005 006 007 008 009 010 011

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

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