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

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 & "#"

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

兄弟们 能帮忙看看吗？ 如果在加一个功能  不显示表A “学习科目” 没有内容的 感谢 感谢