Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SEL-ECT * From {学员课时记录表} where 缴费编号='" & r("缴费编号") & "'"
dt = cmd.ExecuteReader()
Tables(e.form.name & "_Table1").DataSource =dt With dataTables(e.form.name & "_Table1")
.DataCols("点名时间").Caption = "考勤时间"
.DataCols("任课教师编号").Caption = "上课老师"
.BuildHeader()
End With