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


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

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

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110552 积分:562650 威望: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编辑过]

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


加好友 发短信
等级:超级版主 帖子:110552 积分:562650 威望: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,由服务端统一生成编号

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


加好友 发短信
等级:超级版主 帖子:110552 积分:562650 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/19 21:54:00 [显示全部帖子]

贴出完整代码

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


加好友 发短信
等级:超级版主 帖子:110552 积分:562650 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/19 22:20:00 [显示全部帖子]

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

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


加好友 发短信
等级:超级版主 帖子:110552 积分:562650 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/19 22:51:00 [显示全部帖子]

直接加到datacolchanged事件也可以
……
e.DataRow("编号2") = bh & "-" & Format(idx,"000")
e.DataRow.save
……

 回到顶部