主题：[求助]窗口

 什么时候报错的？你把会触发的各个事件的代码删掉，再测试下看看。

改成

trvr.BuildTree(dtr, "年|月|日")

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow

If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim name As Integer = dr("姓名")
    Dim Year As Integer = dr("年")
    Dim Month As Integer = dr("月")
    Dim day As Integer  = dr("日")
    Select Case e.Node.Level
        Case 0
            Filter ="姓名 = '" name "'"
        Case 1
            Filter ="姓名 = '" name "' and Year(日期) = " & Year
        Case 2
            Filter ="姓名 = '" name "' and  Year(日期) = " & Year & " And Month(日期) = " & Month
        Case 3
            Filter ="姓名 = '" name "' and Year(日期) = " & Year & " And Month(日期) = " & Month & " And day(日期) = " & day            
    End Select
End If
DataTables("医疗费用明细").LoadFilter = Filter
DataTables("医疗费用明细").Load()
Tables("医疗费用明细").Sort = "编号"

不要勾选2016，你勾选了，自然全年的都显示了。