Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateTree("表A","时间")

目前这个目录树没有任何任何。

 
此主题相关图片如下：01.png

现在新的问题出现了。

我希望点击目录树的每一层节点都能够进行筛选。

 代码如下：

Dim Value()As String
Dim Filter As String
Dim d1 As Date
Dim d2 As Date
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
       
        If e.Node.Text = "显示所有记录" Then
            Tables("查看系统日志_table1").Filter = ""
        Else
            Dim y As Integer = value(0)
            d1 = New Date(y,1,1) \'取得该年的第一天
            d2 = new Date(y,12,31) \'取得该年的最后一天
            Filter = "操作时间 >= #" & d1 & "# And 操作时间 <= #" & d2 & "#"
        End If
    Case 1
        Dim y As Integer = value(0)
        Dim m As Integer = value(1)
        d1 = New Date(y, m, 1) \'取得该月的第一天
        d2 = new Date(y, m, Date.DaysInMonth(y,m)) \'取得该月的最后一天
        Filter = "操作时间 >= #" & d1 & "# And 操作时间 <= #" & d2 & "#"
    \'Case 2
        \'Dim y As Integer = value(0)
        \'Dim m As Integer = value(1)
        \'d1 = New Date(y, m, 1) \'取得该月的第一天
        \'d2 = new Date(y, m, Date.DaysInMonth(y,m)) \'取得该月的最后一天
        \'Filter = "操作时间 >= #" & d1 & "# And 操作时间 <= #" & d2 & "#"
End Select

Tables("查看系统日志_table1").Filter = Filter

红色部分，我不能取值到日期部分，请各位高手相助，谢谢