- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么实现序号从1开始递增呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174377)
-- 发布时间：2022/1/12 17:11:00
-- 怎么实现序号从1开始递增呢？
假定有一个表A 序号列 每新增一行序号就加1
怎么实现序号从1开始递增呢？ 谢谢！
比如：1.2.3.4.5.6.……9999等
不是制定序号位数的递增
-- 发布时间：2022/1/12 17:11:00
--
http://www.foxtable.com/webhelp/topics/2403.htm
-- 发布时间：2022/1/12 17:18:00
-- 回复：（有点蓝）http://www.foxtable.com/webhelp/to...
不是这样的编号哈
不指定编号位数的
1
2
3
……
10
11
12
……
999999
要类似这样的
-- 发布时间：2022/1/12 17:23:00
--
去掉帮助里指定位数的代码可以了。学会理解代码处理问题的逻辑，而不是只会抄，一点点变化都只能等着别人处理
-- 发布时间：2022/1/12 18:07:00
-- 回复：（有点蓝）去掉帮助里指定位数的代码可以了。学...
好的 老师 参照学习了一下
当前代码如下：
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(第一列)","[_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大第一列
If max > "" Then \'如果存在最大第一列
idx = CInt(max.Substring(0,1)) + 1 \'获得最大第一列的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("第一列") = idx
运行效果如图：（大于10后就没有递增了……有没有办法实现无限制正常递增呢）
-- 发布时间：2022/1/13 8:38:00
--
把列改为整数型
e.DataRow("第一列") = e.DataTable.Compute("Max(第一列)","[_Identify] <> " & e.DataRow("_Identify")) + 1