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)

请老师,指教,谢谢!

无法在sql语句直接排除重复编号。如果要排除，sql语句会更加复杂

https://www.baidu.com/baidu?wd=sqlserver+%E6%8E%92%E9%99%A4%E9%87%8D%E5%A4%8D

建议得到表格后，然后执行 t.RepeatFilter("学生编号",1)