以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  类别自动编号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193868)
--  作者：timber83
--  发布时间：2024/10/23 8:12:00
--  类别自动编号
我有张表， 【级1code】需要自动编码
DataColChanged事件代码设置为：
Select e.DataCol.Name
    Case "类别code"
        If e.DataRow.IsNull("类别code") Then
             e.DataRow("级1code") = Nothing
        Else
            Dim lb As String = e.DataRow("类别code")
            If e.DataRow("级1code").StartsWith(lb) = False 
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(级1code)", "类别code =\'" & lb  & "\' And [_Identify] <> " & e.DataRow("_Identify"))
                If max > "" Then 
                    idx = CInt(max.Substring(5,2))+1
                    Else
                    idx = 1
                End If
                e.DataRow("级1code") = lb & Format(idx, "00")
            End If
        End If
End Select
但不成功，
图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_17296421571745.png
图片点击可在新窗口打开查看
需要怎么修改，
--  作者：有点蓝
--  发布时间：2024/10/23 8:31:00
--  
没有问题呀。什么地方有问题？
--  作者：timber83
--  发布时间：2024/10/23 12:03:00
--  
级1code  只是第一行生成了，后面不能生成，如果我把类别code 全部改成字母 就会生成，

显示运行错误
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2024.8.21.1
错误所在事件：表，级1， DataColChanged
详细错误信息：
调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length
--  作者：有点蓝
--  发布时间：2024/10/23 12:40:00
--  
类别的长度不是固定的？

idx = CInt(max.Substring(5,2))+1
改为
idx = CInt(max.Substring(max.length - 2))+1