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

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

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

jjjeyes

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

加好友

发短信

等级：小狐帖子：309 积分：2743 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：113475 积分：577864 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/18 20:09:00 [只看该作者]

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

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

[此贴子已经被作者于2019/3/18 20:10:28编辑过]

jjjeyes

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

加好友

发短信

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

Post By：2019/3/18 22:23:00 [只看该作者]

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

但是我还有几个新问题：

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

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

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

cd_tdh

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

加好友

发短信

等级：狐精帖子：3231 积分：21465 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2019/3/18 22:45:00 [只看该作者]

你要不调用数据库时间，要不修改这儿

e.DataTable.SqlCompute("Max(

[此贴子已经被作者于2019/3/18 22:45:55编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：113475 积分：577864 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/18 22:56:00 [只看该作者]

1、使用SqlCompute直接查后台数据，生成编号后马上保存

2、参考这种：http://www.foxtable.com/webhelp/scr/3008.htm，由服务端统一生成编号

jjjeyes

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

加好友

发短信

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

Post By：2019/3/19 12:30:00 [只看该作者]

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

jjjeyes

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

加好友

发短信

等级：小狐帖子：309 积分：2743 威望：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' 附近有语法错误。

何解？

有点蓝

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

加好友

发短信

等级：超级版主帖子：113475 积分：577864 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/19 21:54:00 [只看该作者]

贴出完整代码

jjjeyes

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

加好友

发短信

等级：小狐帖子：309 积分：2743 威望：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编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：113475 积分：577864 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/19 22:20:00 [只看该作者]

如果是SqlServer数据库，把#改为单引号。如果还有问题，应该是其他事件代码的原因

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

总数 13 1 2 下一页

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