Foxtable(狐表)用户栏目专家坐堂 → 生成编码 提示索引和长度必须引用该字符串内的位置


  共有5237人关注过本帖树形打印复制链接

主题:生成编码 提示索引和长度必须引用该字符串内的位置

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
生成编码 提示索引和长度必须引用该字符串内的位置  发帖心情 Post By:2023/1/11 19:14:00 [只看该作者]

详细错误信息:
调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length

 

当前代码如下:【编码格式52272220230001   52272220230002……】

Select Case e.DataCol.Name
    Case "录入日期"
        Dim d As Date = e.DataRow("录入日期")
        Dim r1 As DataRow =DataTables("代码表").Find("名称='卷宗编号前缀'")
        If r1 IsNot Nothing  Then
            Dim bh As String = r1("代码") & Format(d,"yyyy")
            MessageBox.Show(bh)
            If e.DataRow("卷宗编号").StartsWith(bh) = False '如果案件卷宗编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "[_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.sqlCompute("Max(卷宗编号)",flt) '取得该月的相同工程代码的最大案件卷宗编号
                If max > "" Then '如果存在最大案件卷宗编号
                    idx = CInt(max.Substring(10,4)) + 1 '获得最大案件卷宗编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("卷宗编号") = bh & Format(idx,"0000")
            End If
        Else
            MessageBox.Show("没有对应的卷宗编号前缀数据,请联系管理员")
        End If
End Select


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/12 9:36:00 [只看该作者]

idx = CInt(max.Substring(10,4)) + 1 
改为
idx = CInt(max.Substring(max.length - 4)) + 1 

 回到顶部