专家坐堂-求助：编码问题从1 2 3 4 5 6 7 8 9 10之后就一直是10 10 10 求解！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：编码问题从1 2 3 4 5 6 7 8 9 10之后就一直是10 10 10 求解！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63300)

--  作者：李孝春
--  发布时间：2015/1/18 11:42:00
--  求助：编码问题从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

[此贴子已经被作者于2015-1-18 12:10:53编辑过]

--  作者：有点甜
--  发布时间：2015/1/18 11:54:00
--

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

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

--  作者：李孝春
--  发布时间：2015/1/18 12:11:00
--  回复：（有点甜）呃，必须是固定格式比如 001、...
假设我弄成如上代码怎么操作呢？

--  作者：有点甜
--  发布时间：2015/1/18 15:01:00
--

就是用这段代码啊

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

--  作者：李孝春
--  发布时间：2015/1/18 16:29:00
--  回复：（有点甜）就是用这段代码啊 &n...
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：表，同录台账，DataRowAdding
详细错误信息：
调用的目标发生了异常。
从字符串“001号”到类型“Integer”的转换无效。
输入字符串的格式不正确。

--  作者：有点甜
--  发布时间：2015/1/18 16:31:00
--
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") & "号"
[此贴子已经被作者于2015-1-18 16:31:37编辑过]

--  作者：李孝春
--  发布时间：2015/1/18 16:36:00
--  回复：（有点甜） Dim bh1 As String = "瓮检技...

错误依旧为楼上

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

--  作者：有点甜
--  发布时间：2015/1/18 16:46:00
--
不可能会错。

--  作者：李孝春
--  发布时间：2015/1/18 17:00:00
--  回复：（有点甜）不可能会错。

现在代码如下不报错了但是还是只到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") & "号"

--  作者：有点甜
--  发布时间：2015/1/18 17:08:00
--

下面这段，也要弄成 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") & "号"