主题：目录树节点都已经正常生成了,可单击到第四个节点就出现错误提示了

此主题相关图片如下：微信图片_20230630111626.png

目录树节点都已经正常生成了,可单击到第四个节点就出现错误提示了

Dim Filter As String = ""
If e.Node.Name <> "加载所有行" Then '要用Name属性,不能用Text属性
    Dim jc As String = e.Node.DataRow("fa piao类型")
    Dim nm As String = e.Node.DataRow("开piao单位简称")
    Dim y As Integer = e.Node.DataRow("认证年份")
    Dim m As Integer = e.Node.DataRow("认证月份")
    Dim Year As Integer = e.Node.DataRow("年")
    Dim month As Integer = e.Node.DataRow("月")
    Dim day As Integer = e.Node.DataRow("日")
    Select Case e.Node.Level
        Case 0
            filter = "fa piao类型 = '"& jc & "'"
        Case 1
            filter = "fa piao类型 = '" & jc & "' And 开piao单位简称 = '" & nm & "'"
        Case 2
            filter = "fa piao类型 = '" & jc & "' And 开piao单位简称 = '" & nm & "' And 认证年份 = " & y
        Case 3
            filter = "fa piao类型 = '" & jc & "' And 开piao单位简称 = '" & nm & "' And 认证年份 = " & y & " and 认证月份 = " & m
        Case 4
            filter = "fa piao类型 = '" & jc & "' And 开piao单位简称 = '" & nm & "' And 认证年份 = " & y & " and 认证月份 = " & m & " And 年 = " & year
        Case 5
            filter = "fa piao类型 = '" & jc & "' And 开piao单位简称 = '" & nm & "' And 认证年份 = " & y & " and 认证月份 = " & m & " And 年 = " & year & " And 月 = " & month
        Case 6
            filter = "fa piao类型 = '" & jc & "' And 开piao单位简称 = '" & nm & "' And 认证年份 = " & y & "and 认证月份 = " & m & " And 年 = " & year & " And 月 = " & month & "and 日 = " & day
    End Select
End If

DataTables("进项fa piao").loadFilter = Filter
DataTables("进项fa piao").load()

节点设置如下:

    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "(" & dt.Compute("sum(份数)","fa piao类型 = '" & lx & "'") & "份)"        
        Case 1
            nd.Text = nd.text & "(" & dt.Compute("sum(份数)","fa piao类型 = '" & lx & "'and 开piao单位简称 = '" & nm & "'") & "份)"
        Case 2
            nd.Text = nd.text & "(" & dt.Compute("sum(份数)","fa piao类型 = '" & lx & "'and 开piao单位简称 = '" & nm & "'And 认证年份 = " & y ) & "份)"
      
        Case 3
            nd.Text = nd.text & "(" & dt.Compute("sum(份数)","fa piao类型 = '" & lx & "'and 开piao单位简称 = '" & nm & "'And 认证年份 = " & y & "and 认证月份 = " & m ) & "份)"
        Case 4
            Dim Filter As String  = " fa piao类型 = '" & lx & "'and 开piao单位简称 = '" & nm & "'and 认证年份 = " & y & "and 认证月份 = " & m & " And 年 = " & year
            nd.Text = nd.text & "(" & dt.Compute("sum(份数)",filter) & "份)"
        Case 5
            Dim Filter As String = "fa piao类型 = '" & lx & "'and 开piao单位简称 = '" & nm & "'and 认证年份 = " & y & "and 认证月份 = " & m & " And 年 = " & year & " And 月 = " & month
            nd.Text = nd.text & "(" & dt.Compute("sum(份数)",filter) & "份)"
        Case 6
            Dim Filter As String = "fa piao类型 = '" & lx & "'and 开piao单位简称 = '" & nm & "'and 认证年份 = " & y & "and 认证月份 = " & m & " And 年 = " & year & " And 月 = " & month & " and 日 = " & day
            nd.Text = nd.text & "(" & dt.Compute("sum(份数)",filter) & "份)"
           
    End Select