Dim lie As String = e.form.Controls("ComboBox1").Text
Dim zhi As String = e.form.Controls("ComboBox2").Text
e.Form.controls("Table1").Table.Fill("Select b.学期,b.班级,a.学生编号,a.学生姓名,全国学籍号,身份证号,性别,民族,出生日期,年龄,监护人姓名,监护人电话 F rom {学生基本信息} a Inner JOIN {缴学费信息} b ON b.学生编号 = a.学生编号 WHERE " & lie & "='" & zhi & "' ORDER BY b.学期,b.班级,a.学生编号","数据库", True)