主题：年月日+顺序号的个性化订单编号

狐爸:我看了帮助里的3.13.4.4网络环境下的复杂编号,感觉上太复杂,如果我有很多张表有这种个性化编号的要求的话,那不是要为这些编号增加很多张表来储存编号与前缀列?我这里做了一个方案,功能方面能达到要求,即能按年月日做前缀,加顺序号来编号,我对帮助上的案例与我的都测试了一下,单机使用都没问题,但在网络条件下,如有人提前保存了相同的订单号时,两者都不能保存进出,最大的差别是当同步同前表时,帮助里的编号会将数据源中的编号更新出来,自已新增的编号也会改变编号的情况下保存进了数据源,而我新增的数据就被同步掉了,请狐爸帮我解决,我认为我的这个方案要简单一点,但还需要狐爸改进

我怎么上传不了文件呢

Dim cmd1 As New SQLCommand
Dim dt1 As Date
cmd1.C
cmd1.CommandText = "Select GetDate()"
dt1 = cmd1.ExecuteScalar()
e.DataRow("制单日期") = dt1.Date

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {采购申请单主明细} where 制单日期 = '" & dt1.Date & "'"
dt = cmd.ExecuteReader()
Dim x As Integer = dt.DataRows.Count + 1
e.DataRow("单据编号") = "请-" & Format(dt1.Date,"yyMMdd") & "-" & Format (x,"00")

 

 

这是我的 放在新增行事件中

其实帮助的方案最佳，即使有多个表要实现此类编号，也只需一个编号表的，在编号表中加上表名列，在修改编号代码，在条件判断中加上表名条件即可。

老大的帮助里面的编号用于网络是没话讲.

 

要获得记录数，只需Select count([_dentify]) From {表名} From 条件。

 

 

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

呵呵，把帮助的稍微改一些，就可以用于多个表了：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:网络环境下的复杂编号.rar

用帮助的方法好，大家自行琢磨出来的办法，在多用户环境下，有产生重复编号的可能性。