主题：关于目录树节点“显示所有行”

Dim Filter As String

If e.Node.Name = "显示所有行" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Dim Year As Integer = dr("年")
    Dim Month As Integer = dr("月")
    Dim day As Integer = dr("日")
    Select Case e.Node.Level
        Case 0
            Filter ="Year(日期) = " & Year
        Case 1
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month
        Case 2
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And day(日期) = " & day
    End Select
End If