- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 类别自动编号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193868)
-- 发布时间：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
需要怎么修改，
此主题相关图片如下：企业微信截图_17296421571745.png需要怎么修改，
-- 发布时间：2024/10/23 8:31:00
--
没有问题呀。什么地方有问题？
-- 发布时间：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