标题：用OpenQQ实现网络环境下的编号-也会重复如何解决？
2、在服务端的AfterOpenProjet事件中编写代码：
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "SelecGt 工程代码,Year(制单日期) As 年, Month(制单日期) As 月, Max(单据编号) as 单据编号 From {工程} Group By 工程代码,Year(制单日期), Month(制单日期)"
dt = cmd.ExecuteReader
flbhs.Clear()
For Each dr As DataRow In dt.DataRows
Dim qz As String = dr("工程代码") & "-" & dr("年") & Format(dr("月"),"00") '编号前缀,4位工程代码,4位年,2位月
Dim bh As String = dr("单据编号")
Dim id As Integer
If bh.Length = 16 Then
bh = bh.SubString(12)
If Integer.TryParse(bh,id) Then
flbhs.Add(qz, id)
End If
End If
Next
2、在服务端的AfterOpenProjet事件中编写代码：
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "SelecGt 工程代码,Year(制单日期) As 年, Month(制单日期) As 月, Max(单据编号) as 单据编号 From {工程} Group By 工程代码,Year(制单日期), Month(制单日期)"
dt = cmd.ExecuteReader
flbhs.Clear()
For Each dr As DataRow In dt.DataRows
Dim qz As String = dr("工程代码") & "-" & dr("年") & Format(dr("月"),"00") '编号前缀,4位工程代码,4位年,2位月
Dim bh As String = dr("单据编号")
Dim id As Integer
If bh.Length = 16 Then
bh = bh.SubString(12)
If Integer.TryParse(bh,id) Then
flbhs.Add(qz, id)
End If
End If
Next
上面代码是可有可无，帮助为什么要写？不知这个作用是什么？
下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:新建文件夹.zip
【服务端的AfterOpenProjet事件中编写代码】肯定是有用的，目的是为了获取需要生成编号的表， 1.有问题就是这个只写一张表，服务端与客户端，一对一？如果是的，客户端有100张，服务端这里不是也写100张，会不会严重影响性能？ 2.在上面实例测试，加上面代码，测试还是会重复，没有限制重点， 3.用法如果要配合回收表使用，回收表的编号不能大于当前在用的最大编号，在哪里改代码，其代码如何写？ |
2、不可能有重复，因为所有客户端都是通过服务器生成编号的，ReceivedMessage事件是按顺序执行的，10个人取编号，都必须等待前面的人处理完毕，才能获取新的编号，所以不可能有重复