Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新增一行，按照【年月日当前时间】自动增加“市场单号”，帮忙修改代码，谢谢！


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

主题：新增一行，按照【年月日当前时间】自动增加“市场单号”，帮忙修改代码，谢谢！
帅哥哟，离线，有人找我吗？
小刚
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：590 积分：3858 威望：0 精华：0 注册：2012/10/15 20:39:00 		新增一行，按照【年月日当前时间】自动增加“市场单号”，帮忙修改代码，谢谢！  发帖心情 Post By：2014/2/26 10:55:00 [只看该作者]

新增一行，按照【年月日当前时间】自动增加“市场单号”编号，帮忙修改代码，谢谢！
意思就是 编码前面是：年月日时分秒，后面跟一个个位数1-9.当同一秒同时下了两个或以上订单时，后面的个位就自动加1，当这一秒就下了一个订单，后面位数就是1.


Dim r As Row =Tables("市场").Current
Dim max As String
max = DataTables("市场").Compute("Max(市场单号)","下单日期 = #" & Date.Today  & "#")
If max = "" Then
    max=Format(Date.Now,"yyMMddhhmmss") & “-” & "1"
Else
    max = Format(Date.Now,"yyMMddhhmmss") & “-” & CStr(Val(Right(max,1)) + 1)                 '''.PadLeft(1,"0")
End If
r("市场单号") =max

---------------------------------------------------
想要的效果:
不在同一秒点击出现的应该是:如:140226030122-1  ,140226030236-1 ,... ...    最后一个数字一定是1,就是说,在这一秒,这是新增的第1个订单
在同一秒点击出现的应该是:   如:140226030122-1  ,140226030122-2 ,... ...    就是说在这一秒,这是新增的第1个/第2个订单...
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/26 10:59:00 [只看该作者]

http://www.foxtable.com/help/topics/1994.htm  和原来的没区别,只是把 date.today 改为date.now 

 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：590 积分：3858 威望：0 精华：0 注册：2012/10/15 20:39:00 		  发帖心情 Post By：2014/2/26 12:21:00 [只看该作者]

你没仔细看啊,老大,我已经改了的.
但是得出来的编号的最后以为数字,是1、2、3、4、5、6、7、8、9、10、1、2、3...
这个数字不是同一秒内的增加，不同的秒，它也在增加，那就不对啊。
 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：590 积分：3858 威望：0 精华：0 注册：2012/10/15 20:39:00 		  发帖心情 Post By：2014/2/26 13:44:00 [只看该作者]

我上面的代码点新增后,执行结果如下:

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140226163823.jpg
图片点击可在新窗口打开查看
后面的个位数不是以秒为增加,而是不停的0-10循环增加,搞不懂,也还有重复的.

'--------------------------------------------------------------
把,"下单日期 = #" & Date.Today  & "#")  改成  Date.Now 后,执行如下:

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140226163849.jpg
图片点击可在新窗口打开查看

有重复的值出现
 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：590 积分：3858 威望：0 精华：0 注册：2012/10/15 20:39:00 		  发帖心情 Post By：2014/2/26 14:06:00 [只看该作者]

知道了
[此贴子已经被作者于2014-2-26 14:08:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/26 14:12:00 [只看该作者]

上例子我看一下

24小时可以FORMAT一下  yyyy-MM-dd HH:mm:ss
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/2/26 14:31:00 [只看该作者]

DataRowAdded

DataTables("订单表").AddNew(30)测试：

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:精确到秒自动编号.table

[此贴子已经被作者于2014-2-26 14:43:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：590 积分：3858 威望：0 精华：0 注册：2012/10/15 20:39:00 		  发帖心情 Post By：2014/2/26 14:33:00 [只看该作者]

你给看看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:唯一市场单号.rar
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/26 14:38:00 [只看该作者]

看看7楼是否你想要的.

 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：590 积分：3858 威望：0 精华：0 注册：2012/10/15 20:39:00 		  发帖心情 Post By：2014/2/26 15:00:00 [只看该作者]

是的是的 图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看  就是把
Compute("Max(市场单号)","下单日期 = #" & Date.Today  & "#")
改成
Compute("Max(市场单号)","市场单号 Like '" & Format(Date.Now,"yyMMddhhmmss") & "%'")
了 !!!
我研究了一天半了,都想不出来.谢谢LSY老大了!
'------------------------------------------------

另外,帮助里面的[网络环境下的复杂编号]是有问题的.
错误出现情况:当连续增加几个编号后,都不保存.这是随意点任何一个去保存,就出错了.
现实中,会连续下几个订单,不见得每个下完就保存的,可能下几个才开始保存,这是实际存在的情况.
但是会出错.
新增一个,保存一个就没有问题.
上传例子给老师们研究了.

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140226175209.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140226175332.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:自动编号.rar
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询