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


  共有2242人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
jjjeyes
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:296 积分:2612 威望: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
    End If
End If

但是,新增行后,同一时间(相同秒)并没有序号增加,请问错在哪里?

图片点击可在新窗口打开查看此主题相关图片如下:tim截图20190318195057.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望: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


加好友 发短信
等级:童狐 帖子:296 积分:2612 威望: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


加好友 发短信
等级:狐精 帖子:3021 积分:20248 威望: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


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望: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


加好友 发短信
等级:童狐 帖子:296 积分:2612 威望:0 精华:0 注册:2011/10/29 16:26:00
  发帖心情 Post By:2019/3/19 12:30:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
jjjeyes
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:296 积分:2612 威望: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


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/19 21:54:00 [只看该作者]

贴出完整代码

 回到顶部
帅哥哟,离线,有人找我吗?
jjjeyes
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:296 积分:2612 威望: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
    End If
End If


但当SQLCompute 改为Compute 的时候却又一切正常!
[此贴子已经被作者于2019/3/19 22:15:47编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/19 22:20:00 [只看该作者]

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

 回到顶部
总数 13 1 2 下一页