主题：[求助]窗口

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

改成

 

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 = "编号"

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

Filter ="姓名 = '" & name & "'"

 

其它几个地方自己改改。

 

要学会看懂代码，而不是拿过来只会用。而不至于一些基本的错误都要求助

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

Dim Filter As String Dim dr As DataRow = e.Node.DataRow If e.node.Text = "加载所有数据" Then     Filter = "" Else     Dim name As String = 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 = "编号"

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

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