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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：编码问题从1 2 3 4 5 6 7 8 9 10之后就一直是10 10 10 求解！

共有3484人关注过本帖树形打印复制链接主题：求助：编码问题从1 2 3 4 5 6 7 8 9 10之后就一直是10 10 10 求解！

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

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

Post By：2015/1/18 11:42:00 [只看该作者]

求助：编码问题从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编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/18 11:54:00 [只看该作者]

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

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

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）呃，必须是固定格式比如 001、... 发帖心情

Post By：2015/1/18 12:11:00 [只看该作者]

假设我弄成如上代码怎么操作呢？

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

李孝春

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）就是用这段代码啊 &n... 发帖心情

Post By：2015/1/18 16:29:00 [只看该作者]

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：表，同录台账，DataRowAdding
详细错误信息：
调用的目标发生了异常。
从字符串“001号”到类型“Integer”的转换无效。
输入字符串的格式不正确。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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编辑过]

李孝春

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜） Dim bh1 As String = "瓮检技... 发帖心情

Post By：2015/1/18 16:36:00 [只看该作者]

错误依旧为楼上

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

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/18 16:46:00 [只看该作者]

不可能会错。

李孝春

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）不可能会错。 发帖心情

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

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：求助：编码问题 从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 求解！