又出问题了,
1.access数据源
Dim st As Date = Date.now
Dim q As new QueryBuilder
q.TableName = "人数统计"
q.C
q.SelectString = "select 一级,二级,三级,四级, count(*) as 人数 fr om (Select mid(编制号,1,4) As 一级, mid(编制号,5,4) As 二级, mid(编制号,9,4) As 三级, mid(编制号,13,4) As 四级 fr om {测试表}) group by 一级,二级,三级,四级"
q.Build
MainTable = Tables("人数统计")
MessageBox.show( "打开窗口用时:" & Format((Date.now - st).Totalseconds ,"0.00000") & "秒")
运行正常
2.sql数据源
Dim st As Date = Date.now
Dim q As new QueryBuilder
q.TableName = "目录树人数统计"
q.C
q.SelectString = "select 一级,二级,三级,四级, count(*) as 人数 fr om (Select mid(编制号,1,4) As 一级, mid(编制号,5,4) As 二级, mid(编制号,9,4) As 三级, mid(编制号,13,4) As 四级 fr om {基本信息}) group by 一级,二级,三级,四级"
q.Build
'MainTable = Tables("人数统计")
MessageBox.show( "打开窗口用时:" & Format((Date.now - st).Totalseconds ,"0.00000") & "秒")
出错,提示:

此主题相关图片如下:qq图片20160302162348.png