[求助]想做一个以创建时间为基础的自动编号，每秒相同的再做递增。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]想做一个以创建时间为基础的自动编号，每秒相同的再做递增。

共有2692人关注过本帖树形打印复制链接主题：[求助]想做一个以创建时间为基础的自动编号，每秒相同的再做递增。

jjjeyes

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

[求助]想做一个以创建时间为基础的自动编号，每秒相同的再做递增。 发帖心情

Post By：2019/3/18 19:55:00 [显示全部帖子]

由于使用的是多人操作，所以为了使主表的编号尽量不同，所以想做一个以创建时间为基础的自动编号，每秒相同的再做递增。

主要代码如下：

Dim n As Date = Date.now

Dim bh As String = Format(n,"yyyyMMddHHmmss")

If e.DataCol.Name = "创建时间" Then '如果更改的是创建时间

If e.DataRow.IsNull("创建时间") Then

e.DataRow("编号2") = Nothing

Else

If e.DataRow("编号2").StartsWith(bh) = False '如果编号的前14位不符

Dim max As String

Dim idx As Integer

max = e.DataTable.Compute("Max(编号2)","创建时间 = #" & e.DataRow("创建时间") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号

If max > "" Then '如果存在最大编号

idx = CInt(max.SubString(15,3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("编号2") = bh & "-" & Format(idx,"000")

End If

但是，新增行后，同一时间（相同秒）并没有序号增加，请问错在哪里？

此主题相关图片如下：tim截图20190318195057.png

jjjeyes

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

Post By：2019/3/18 22:23:00 [显示全部帖子]

修改了以上代码确实解决了问题。

但是我还有几个新问题：

1、如果多用户操作同一个表，并在上面新增行，那么“编号2”列是根据新增行的创建时间来编号的，在1秒内有同一个序号产生后会不断的增加序号，这个创建时间应该是用户端电脑上的时间吧？

2、如果这个时候没有保存数据，然而在同一秒内又同时有不同的客户端在新增行，如果将新增行数据保存为 datatable 时，那是否会重复编号？

3、不同电脑端的时间也许都不同，或快或慢，那么如果这样是否有更好的解决办法？

jjjeyes

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

Post By：2019/3/19 12:30:00 [显示全部帖子]

明白了，用sql 后台查询数据，并马上保存

jjjeyes

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

Post By：2019/3/19 21:48:00 [显示全部帖子]

将原来的代码改为了： max = e.DataTable.SQLCompute

但是出现了代码错误：

.NET Framework 版本：2.0.50727.8937

Foxtable 版本：2018.10.9.1

错误所在事件：

详细错误信息：

'21' 附近有语法错误。

何解？

jjjeyes

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

Post By：2019/3/19 22:07:00 [显示全部帖子]

Dim n As Date = Date.now

Dim bh As String = Format(n,"yyyyMMddHHmmss")

If e.DataCol.Name = "创建时间" Then '如果更改的是创建时间

If e.DataRow.IsNull("创建时间") Then

e.DataRow("编号2") = Nothing

Else

If e.DataRow("编号2").StartsWith(bh) = False '如果编号的前14位不符

Dim max As String

Dim idx As Integer

Dim d As Date = cdate(format(e.DataRow("创建时间"),"yyyy-MM-dd HH:mm:ss"))

max = e.DataTable.SQLCompute("Max(编号2)","创建时间 >= #" & d & "# And 创建时间 < #" & d.AddSeconds(1) & "# and [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号

If max > "" Then '如果存在最大编号

idx = CInt(max.SubString(15,3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("编号2") = bh & "-" & Format(idx,"000")

End If

但当SQLCompute 改为Compute 的时候却又一切正常！

[此贴子已经被作者于2019/3/19 22:15:47编辑过]

jjjeyes

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

Post By：2019/3/19 22:26:00 [显示全部帖子]

我用的是SqlServer数据库，将#改为单引号后，没有出现刚才报错的问题了，可是新的问题又有了：

此主题相关图片如下：tim截图20190318195057.png

见图，同一时间内的编号也不能递增了

找到不能递增的原因了，是因为SqlCompute是需要将数据保存到datatable中后才能在后台查询结果并返回值的。所以需要保存已经添加的行，经过反复测试只有在表DataRowAdded事件中添加e.DataTable.Save()马上保存数据就可以了！

[此贴子已经被作者于2019/3/19 22:47:01编辑过]

jjjeyes

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

Post By：2019/3/19 22:47:00 [显示全部帖子]

下一主题 >> << 上一主题

主题：[求助]想做一个以创建时间为基础的自动编号，每秒相同的再做递增。