主题：[求助]最大编号的问题。

Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim bh As String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
Dim max As String
Dim idx As Integer
max = e.DataTable.sqlCompute("Max(需求编号)","需求编号 like '" & bh & "%'")
If max > "" Then '如果存在最大编号
    idx = CInt(max.Substring((bh.length) + 1,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("需求编号") = bh & Format(idx,"000")

编号想改为201409***，比如201409021,201409022.顺序加下去。可是怎么报错啊。红色的代码不对么。

.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2014.9.23.1
错误所在事件：表，需求明细表，DataRowAdded
详细错误信息：
调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length