Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "sele ct * fro m 职工名册 as a inner join (select 身份证号 fro m 职工名册 group by 身份证号 having count(身份证号) > 1) as b on a.身份证号=b.身份证号 order by b.身份证号"
dt = cmd.ExecuteReader()
Tables("统计_统计").DataSource = dt
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "sele ct * fro m 统计_统计 as a inner join (select 县区名,单位名称,福企证书号 fro m FQ2015) as b on a.福企证书号=b.福企证书号"
dt1 = cmd1.ExecuteReader()
Tables("统计_统计").DataSource = DT1
以上代码说查不到“统计_统计”表名。