Foxtable(狐表)用户栏目专家坐堂 → 类别自动编号


  共有769人关注过本帖树形打印复制链接

主题:类别自动编号

帅哥哟,离线,有人找我吗?
timber83
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:47 积分:503 威望:0 精华:0 注册:2022/9/5 21:00:00
类别自动编号  发帖心情 Post By: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
图片点击可在新窗口打开查看
需要怎么修改,

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/23 8:31:00 [只看该作者]

没有问题呀。什么地方有问题?

 回到顶部
帅哥哟,离线,有人找我吗?
timber83
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:47 积分:503 威望:0 精华:0 注册:2022/9/5 21:00:00
  发帖心情 Post By:2024/10/23 12:03:00 [只看该作者]

级1code  只是第一行生成了,后面不能生成,如果我把类别code 全部改成字母 就会生成,

显示运行错误
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2024.8.21.1
错误所在事件:表,级1, DataColChanged
详细错误信息:
调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/23 12:40:00 [只看该作者]

类别的长度不是固定的?

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

 回到顶部