[求助]该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr As DataRow = e.Node.DataRow

Dim Filter As String = ""

If e.node.Name <> "显示所有行" Then '要用Name属性,不能用Text属性

Dim d1 As Date

Dim d2 As Date

Dim Year As Integer = e.Node.DataRow("年")

Dim Month As Integer = e.Node.DataRow("月")

Dim Product As String = e.Node.DataRow("交易码")

Select Case e.Node.Level

Case 0

d1 = New Date(Year,1,1) '取得该年的第一天

d2 = new Date(Year,12,31) '取得该年的最后一天

Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"

Case 1

d1 = New Date(Year, Month, 1) '取得该月的第一天

d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天

Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"

Case 2

d1 = New Date(Year, Month, 1) '取得该月的第一天

d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天

Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 交易码 = '" & Product & "'"

End Select

End If

Tables("交易明细").Filter = Filter

主题：[求助]该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字。