出错：索引和长度必须引用该字符串内的位置？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 出错：索引和长度必须引用该字符串内的位置？

共有3104人关注过本帖树形打印复制链接主题：出错：索引和长度必须引用该字符串内的位置？

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

出错：索引和长度必须引用该字符串内的位置？ 发帖心情

Post By：2019/4/12 20:07:00 [只看该作者]

If e.DataRow.IsNull("入库日期") Then

e.DataRow("入库编号") = Nothing

Else

Dim bh1 As String = "RT" & Format(e.DataRow("入库日期"),"yyyyMMdd") '取得入库编号的8位前缀

If e.DataRow("入库编号").StartsWith(bh1) = False '如果入库编号的前8位不符

Dim max1 As String

Dim idx1 As Integer

Dim d1 As Date = e.DataRow("入库日期").Date

max1 = e.DataTable.Compute("Max(入库编号)","入库日期 >= #" & d1 & "# And 入库日期 < #" & d1.adddays(1) & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号

If max1 > "" Then '如果存在最大入库编号

idx1 = CInt(max1.Substring(bh1.length+1,3)) + 1 '获得最大过磅编号的后三位顺序号,并加1

Else

idx1 = 1 '否则顺序号等于1

End If

e.DataRow("入库编号") = bh1 & Format(idx1,"000")

End If

这段自动编号，提示错误：

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2018.10.9.1

错误所在事件：表，入库订单表，DataColChanged

详细错误信息：

调用的目标发生了异常。

索引和长度必须引用该字符串内的位置。

参数名: length

请问怎么改？

cd_tdh

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

加好友

发短信

等级：狐精帖子：3205 积分：21299 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2019/4/12 20:22:00 [只看该作者]

示例2不就是你要的

http://www.foxtable.com/webhelp/scr/2403.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/4/12 20:31:00 [只看该作者]

http://www.foxtable.com/webhelp/scr/1338.htm

idx1 = CInt(max1.Substring(bh1.length-3,3)) + 1 '

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

回复：（有点蓝）http://www.foxtable.com/webhelp/sc... 发帖心情

Post By：2019/4/12 21:03:00 [只看该作者]

If e.DataRow.IsNull("入库日期") Then

e.DataRow("入库编号") = Nothing

Else

Dim bh1 As String = "RT" & Format(e.DataRow("入库日期"),"yyyyMMdd") '取得入库编号的8位前缀

If e.DataRow("入库编号").StartsWith(bh1) = False '如果入库编号的前8位不符

Dim max1 As String

Dim idx1 As Integer

Dim d1 As Date = e.DataRow("入库日期").Date

max1 = e.DataTable.Compute("Max(入库编号)","入库日期 >= #" & d1 & "# And 入库日期 < #" & d1.adddays(1) & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号

If max1 > "" Then '如果存在最大入库编号

idx1 = CInt(max1.Substring(bh1.length-3,3)) + 1 '获得最大过磅编号的后三位顺序号,并加1

Else

idx1 = 1 '否则顺序号等于1

End If

e.DataRow("入库编号") = bh1 & Format(idx1,"000")

End If

测试结果是：

编号只有第一个是RT20190412001，后面的编号，都是一样的RT20190412413