- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]想做一个以创建时间为基础的自动编号，每秒相同的再做递增。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132277)
-- 发布时间：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
End If
End If
但是，新增行后，同一时间（相同秒）并没有序号增加，请问错在哪里？
此主题相关图片如下：tim截图20190318195057.png
-- 发布时间：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编辑过]
-- 发布时间：2019/3/18 22:23:00
--
修改了以上代码确实解决了问题。
但是我还有几个新问题：
1、如果多用户操作同一个表，并在上面新增行，那么“编号2”列是根据新增行的创建时间来编号的，在1秒内有同一个序号产生后会不断的增加序号，这个创建时间应该是用户端电脑上的时间吧？
2、如果这个时候没有保存数据，然而在同一秒内又同时有不同的客户端在新增行，如果将新增行数据保存为 datatable 时，那是否会重复编号？
3、不同电脑端的时间也许都不同，或快或慢，那么如果这样是否有更好的解决办法？
-- 发布时间：2019/3/18 22:45:00
--
你要不调用数据库时间，要不修改这儿
e.DataTable.SqlCompute("Max(
[此贴子已经被作者于2019/3/18 22:45:55编辑过]
-- 发布时间：2019/3/18 22:56:00
--
1、使用SqlCompute直接查后台数据，生成编号后马上保存
2、参考这种：http://www.foxtable.com/webhelp/scr/3008.htm，由服务端统一生成编号
-- 发布时间：2019/3/19 12:30:00
--
明白了，用sql 后台查询数据，并马上保存
-- 发布时间：2019/3/19 21:48:00
--
将原来的代码改为了： max = e.DataTable.SQLCompute
但是出现了代码错误：
.NET Framework 版本：2.0.50727.8937
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
\'21\' 附近有语法错误。
何解？
-- 发布时间：2019/3/19 21:54:00
--
贴出完整代码
-- 发布时间：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
End If
End If
但当SQLCompute 改为Compute 的时候却又一切正常！
[此贴子已经被作者于2019/3/19 22:15:47编辑过]
-- 发布时间：2019/3/19 22:20:00
--
如果是SqlServer数据库，把#改为单引号。如果还有问题，应该是其他事件代码的原因