Dim SQL As String SQL = "Select 学期,班级,学生姓名,性别,a.学生编号,学籍号,学生身份证号 Fr om {学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号 WHERE 学期 = '"& ary(3) &"' And 缴费项目 = '学费' And 缴费状态 = '已缴' Order By 学期,班级,b.学生编号" SQL+ = "Where" & "班级" & "=" & "302" t.Fill(SQL,"数据库",True)