共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：类别自动编号
1楼
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
需要怎么修改，
此主题相关图片如下：企业微信截图_17296421571745.png需要怎么修改，
2楼
有点蓝 发表于：2024/10/23 8:31:00没有问题呀。什么地方有问题？
3楼
timber83 发表于：2024/10/23 12:03:00级1code 只是第一行生成了，后面不能生成，如果我把类别code 全部改成字母 就会生成，
显示运行错误
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2024.8.21.1
错误所在事件：表，级1， DataColChanged
详细错误信息：
调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length
4楼
有点蓝 发表于：2024/10/23 12:40:00类别的长度不是固定的？
idx = CInt(max.Substring(5,2))+1
改为
idx = CInt(max.Substring(max.length - 2))+1
共4 条记录, 每页显示 10 条, 页签:
[1]