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

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

请问怎么改？

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

在“入库订单表”中测试：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试5.zip

[此贴子已经被作者于2019/4/12 21:27:53编辑过]

想要把这个红色的“20”去掉，应该怎么改呀？

RT20190412413

RT190412413

主题：出错：索引和长度必须引用该字符串内的位置？