主题：不显示某列没有文字的

Dim dd As Date = e.Form.Controls("DateTimePicker2").Value 

Dim y As Integer = dd.Year

Dim w As Integer = dd.DayOfWeek '算出今天是星期几

Dim dt1 As Date = dd.AddDays(-w) '获取本周的第一天

Dim dt2 As Date = dd.AddDays(6 - w) '获取本周的最后一天

Dim Filter As String

Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

filter = filter & " and 学习科目 is not null "

Tables("计划表窗口_Table8").Filter = Filter