Dim st As Date = Date.now
Dim g As new QueryBuilder
g.TableName = "档案编号统计1"
g.C
g.S electString = "s elect 姓名编号,顺序号 from (s elect substring(档案编号,1,6) as 姓名编号,substring(档案编号,8,2) as 顺序号 from{在职人员} union all s elect substring(档案编号,1,6) as 姓名编号,substring(档案编号,8,2) as 顺序号 from{退休人员} union all s elect substring(档案编号,1,6) as 姓名编号,substring(档案编号,8,2) as 顺序号 from{死亡人员}) as a group by 姓名编号,顺序号"
g.build
output.show(Format((Date.now - st).Totalseconds,"0.0000"))
st = Date.now
Dim b As new QueryBuilder
b.TableName = "档案编号统计2"
b.C
b.S electString = "s elect 档案编号,count(*) as 数量,CAST('' as nvarchar(500)) as 顺序号登记 from (s elect substring(档案编号,1,6) as 档案编号 from{在职人员} union all s elect substring(档案编号,1,6) as 档案编号 from{退休人员} union all s elect substring(档案编号,1,6) as 档案编号 from{死亡人员}) as a group by 档案编号"
b.build
output.show(Format((Date.now - st).Totalseconds,"0.0000"))
st = Date.now
For Each r As DataRow In DataTables("档案编号统计2").DataRows
r("顺序号登记") = DataTables("档案编号统计1").GetComboListString("顺序号","姓名编号 = '" & r("档案编号") & "'")
Next
output.show(Format((Date.now - st).Totalseconds,"0.0000"))
加好友 
发短信
Post By：2016/9/13 16:09:00 [显示全部帖子]
此主题相关图片如下：qq图片20160913161050.png
