Foxtable(狐表) → 用户栏目 → 专家坐堂 → 年月日+顺序号的个性化订单编号


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

主题：年月日+顺序号的个性化订单编号
帅哥哟，离线，有人找我吗？
小猪鑫鑫
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：832 积分：5867 威望：0 精华：6 注册：2011/5/27 11:41:00 		年月日+顺序号的个性化订单编号  发帖心情 Post By：2011/11/12 9:51:00 [显示全部帖子]

狐爸:我看了帮助里的3.13.4.4网络环境下的复杂编号,感觉上太复杂,如果我有很多张表有这种个性化编号的要求的话,那不是要为这些编号增加很多张表来储存编号与前缀列?我这里做了一个方案,功能方面能达到要求,即能按年月日做前缀,加顺序号来编号,我对帮助上的案例与我的都测试了一下,单机使用都没问题,但在网络条件下,如有人提前保存了相同的订单号时,两者都不能保存进出,最大的差别是当同步同前表时,帮助里的编号会将数据源中的编号更新出来,自已新增的编号也会改变编号的情况下保存进了数据源,而我新增的数据就被同步掉了,请狐爸帮我解决,我认为我的这个方案要简单一点,但还需要狐爸改进
说明:我的这个要先输入日期,自动弹出订单号,帮助里的是先弹出订单号,但不能不输日期,我想这点差别应该没问题吧
 回到顶部
帅哥哟，离线，有人找我吗？
小猪鑫鑫
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：832 积分：5867 威望：0 精华：6 注册：2011/5/27 11:41:00 		  发帖心情 Post By：2011/11/12 9:56:00 [显示全部帖子]

我怎么上传不了文件呢

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


加好友 发短信
等级：四尾狐 帖子：832 积分：5867 威望：0 精华：6 注册：2011/5/27 11:41:00 		  发帖心情 Post By：2011/11/12 10:02:00 [显示全部帖子]

新建一个文件,里面有日期,订单号,订单号是主健,在datacolchanged中加入以下代码

If e.DataCol.name ="日期" Then
Dim y As String =e.DataRow("日期").year
Dim m As String =format(e.DataRow("日期").month,"00")
Dim d As String =format(e.DataRow("日期").day,"00")
Dim rq As Date =e.DataRow("日期")
Dim drs As List(of DataRow)
drs=e.DataTable.Select("日期 ='" & rq & "'","_identify")
For i As Integer =0 To drs.count-1
For Each dr As DataRow In drs
i =i+1
If i <10 Then
dr("订单号") =y & m & d & 0 & i
Else
dr("订单号") = y & m & d & i
End If
Next
Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
小猪鑫鑫
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：832 积分：5867 威望：0 精华：6 注册：2011/5/27 11:41:00 		  发帖心情 Post By：2011/11/13 10:49:00 [显示全部帖子]

谢谢指导，又学到了一种方法

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询