Dim t As Table = e.Form.controls("Table1").Table
Dim ary() As String = Functions.Execute("Xueqi")
Dim d1 As Date = Date.today
Dim d2 As Date = new Date(Date.today.Year, Date.today.Month,1)
Dim sql1 As String = "Select 学期,Format(上课日期,""yyyy-MM"") As 月份,辅导班级 As 班级,b.学生编号,b.学生姓名,上课日期,结束日期,性别,备注 Fr om {学生基本信息} a Inner JOIN {辅导班收费} b ON a.学生编号 = b.学生编号 WHERE 学期 = '"& ary(1) &"' And (结束日期 Is Null Or 结束日期 > 上课日期) ORDER BY Month(上课日期),辅导班级,b.学生编号"
t.Fill(sql1,"数据库",True)
加上条件,排出同月学生编号重复
t.RepeatFilter("学生编号",1)
请老师,指教,谢谢!