- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]自动编号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184291)
-- 发布时间：2022/12/1 12:01:00
-- [求助]自动编号
此主题相关图片如下：222.png
报错，如图，参照指引写的，求解
此主题相关图片如下：111.png
-- 发布时间：2022/12/1 12:06:00
--
麻烦发代码文字
-- 发布时间：2022/12/1 14:42:00
--
Select e.DataCol.Name
Case "辅助PassId"
If e.DataRow.IsNull("辅助PassId") Then
e.DataRow("辅助PassID2") = Nothing
Else
Dim lb As String = e.DataRow("辅助PassId")
If e.DataRow("辅助PassID2").StartsWith(lb) = False Then\'如果单据编号前缀不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(辅助PassID2)", "辅助PassId = \'" & 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("辅助PassID2") = lb & Format(idx, "000")
End If
End If
End Select
-- 发布时间：2022/12/1 14:44:00
--
idx = CInt(max.Substring(2, 3)) + 1 \'获得最大编号的后三位顺序号,并加1
改为
idx = CInt(max.Substring(max.length - 3)) + 1 \'获得最大编号的后三位顺序号,并加1
-- 发布时间：2022/12/2 11:46:00
--
改了，我选中“PassID辅助”列并点了重置列，然后就卡死不动了，什么情况
此主题相关图片如下：111.png
-- 发布时间：2022/12/2 12:08:00
--
1、数据比较多
2、触发了其它的事件代码
-- 发布时间：2022/12/5 10:20:00
--
那要咋整？
-- 发布时间：2022/12/5 11:13:00
--
减少加载的数据
把事件代码都屏蔽掉
-- 发布时间：2022/12/6 8:24:00
--
好像也没有特别多的数据啊，才几百行而已
-- 发布时间：2022/12/6 8:37:00
--
请上传实例说明