有证已缴:
Dim txt As String = e.Form.Controls("学期").Text
Dim sql As String = "Select 学期 As " & txt.Replace("(","").Replace(")","") & "有证已缴, a.学生编号, a.学生姓名, 性别, 民族, a.家长姓名 From {学生缴证信息} a,{学生基本信息} b"
sql + = " Where 学期 = '" & txt & "' And a.学生编号 = b.学生编号"
Dim cmd As New SQLCommand
cmd.CommandText = sql
Tables(e.Form.Name & "_Table1").DataSource = cmd.ExecuteReader()