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

现在修正如下  但是不是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") & "号"