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

1楼

漂泥发表于：2024/8/3 12:16:00

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

年的过滤条件："Year(日期）=" & Year
月的过滤条件："Month(日期）=" & Month

周的过滤条件：求助？

2楼

有点蓝 发表于：2024/8/3 13:00:00

参考：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 & "#"

3楼

漂泥发表于：2024/8/4 15:21:00

谢谢！

共3 条记录, 每页显示 10 条, 页签: [1]