主题：今天学生

Dim d1 As Date = Date.today
Dim d2 As Date = new Date(Date.today.Year, Date.Today.Month,1)
e.Form.controls("Table1").Table.Fill("Select  辅导班级,学生姓名,开始日期 From {学生辅导} WHERE 开始日期 >= #" & d2 & "# And 开始日期 <= #" & d1 & "# ORDER BY 辅导班级",True)