主题：自动编号错误提示

自动编号代码

 

Select e.DataCol.Name
    Case "类别代号"
        If e.DataRow.IsNull("类别代号") Then
            e.DataRow("产品编号") = Nothing
        Else
            Dim lb As String = e.DataRow("类别代号")
            If e.DataRow("产品编号").StartsWith(lb) = False '如果单据产品编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(产品编号)","类别代号 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别代号的最大产品编号
                If max > "" Then '如果存在最大产品编号
                    idx = CInt(max.Substring(2,3)) + 1 '获得最大产品编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("产品编号") = lb & Format(idx,"000")
            End If
        End If
End Select

 -------------------------------------------------------------------------------------------------------

错误提示！！！！

 

 

.NET Framework 版本：2.0.50727.3649
Foxtable 版本：2013.10.14.1
错误所在事件：表，产品表，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Index and length must refer to a location within the string.
Parameter name: length

max.Substring(2,3) 你确保你字符串长度超过5了吗?

没有啊

类别代码为G, 第一个生成的是G001， 第二个编号就出现上述错误

加大字符串如何写

你这样不就长度不够不符合了吗? 才4的长度啊.

哦， 我知道了， 必须是连个字符， 类别代号是GG就行， 不过， 列表代号有的是1个，有的是2个， 有的是3个， 怎么办

判断一下长度.

如果长度不等，那么将下面的代码:

 

 

idx = CInt(max.Substring(2,3)) + 1

 

改为：

 

idx = CInt(max.Substring(max.Length -3,3)) + 1

谢谢, OK了