代码生成日期周加载树后，单击日期周的过滤条件代码怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=192117

Dim week As integer = nd.DataRow("周")

Dim d As Date = New Date(year, 1, 1)

Dim w = d.DayOfWeek

Dim startdate As Date

Dim Enddate As Date

Select Case week

Case 0

startdate = d

Enddate = d.AddDays(7 - w - 1)

Case 53

startdate = d.AddDays(7 - w).AddDays(7 * 51)

Enddate = d.AddYears(1).AddDays( - 1)

Case Else

startdate = d.AddDays(7 - w).AddDays(7 * (week - 2))

Enddate = startdate.AddDays(6)

End Select

……

Case 2
Filter = "日期 >= #" & startdate & "# And 日期 <= #" & Enddate & "#"

主题：代码生成日期周加载树后，单击日期周的过滤条件代码怎么写？