没理由内部表可以,外部就不行吧?查询表的fill应该改成true才对的哦。
Dim A As String = Forms("成绩等级打印").Controls("ComboBox0").text
Dim B As String = Forms("成绩等级打印").Controls("ComboBox1").text
Dim D As String = Forms("成绩等级打印").Controls("ComboBox2").text
DataTables("成绩等级表").Fill("Select * from (Select * from (Select * from {学生成绩库} where 考试名称 = '" & A & "') 平时 inner join (Select * from {学生成绩库} where 考试名称 = '" & B & "') 期末 on 平时.身份证号 = 期末.身份证号) c inner join (Select * from {学生成绩库} where 考试名称 = '" & D & "') 总评 on c.平时.身份证号 = 总评.身份证号","网站数据库", true)
MainTable = Tables("成绩等级表")
MessageBox.Show("成绩等级表已生成!")