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

2楼是目录树代码 请教各位老师了

If e.node.Level > 0 Then
    Dim t As Table = Tables("个人客户信息")
    Dim filter As String = ""
    Dim dr As DataRow = e.Node.DataRow
   
    If e.node.Level = 0 AndAlso e.node.text = "全部" Then
        t.DataTable.LoadFilter =  ""
        t.DataTable.Load()
       
    Else  If dr("分组") = "按分组" Then
        If e.Node.Level = 1 Then
            filter = "省 = \'" & dr("省") & "\'"
        Else If e.Node.Level = 2 Then
            filter = "省 = \'" & dr("省") & "\' and 市 = \'" & dr("市") & "\'"
        Else If e.Node.Level = 3 Then
            filter = "省 = \'" & dr("省") & "\' and 市 = \'" & dr("市") & "\' and 区县 = \'" & dr("区县") & "\'"
        Else If e.Node.Level = 4 Then
            filter = "省 = \'" & dr("省") & "\' and 市 = \'" & dr("市") & "\' and 区县 = \'" & dr("区县") & "\' and 乡镇 = \'" & dr("乡镇") & "\'"
        Else If e.Node.Level = 5 Then
            filter = "省 = \'" & dr("省") & "\' and 市 = \'" & dr("市") & "\' and 区县 = \'" & dr("区县") & "\' and 乡镇 = \'" & dr("乡镇") & "\' and 街道居委 = \'" & dr("街道居委") & "\'"
        End If
        filter = "客户分组 in (\'" & DataTables("客户分组").GetComboListString("街道居委", filter).Replace("|", "\',\'") & "\')"
        \' t.Filter = filter
        t.DataTable.LoadFilter =  Filter  \'设置加载条件
        t.DataTable.Load()
        t.Filter = ""
       
    Else If dr("分组") = "按等级" Then
        filter = "客户等级 = \'" & dr("省") & "\'"
    Else If dr("分组") = "按状态" Then
        filter = "客户状态 = \'" & dr("省") & "\'"
    Else If dr("分组") = "按来源" Then
        filter = "客户来源 = \'" & dr("省") & "\'"
    End If
    t.DataTable.LoadFilter =  Filter  \'设置加载条件
    t.DataTable.Load()
    t.Filter = ""
    Dim idx As Integer = e.Node.Text.IndexOf("(")
    If idx > -1 Then
        e.Node.Text = e.Node.Text.SubString(0, idx) & "(" & t.Rows.Count & ")"
    Else
        e.Node.Text = e.Node.Text & "(" & t.Rows.Count & ")"
    End If
End If

帮忙看看哪里有问题 点击全部不过滤

谢谢 ，对编程不懂 就是麻烦 看来的多学习啊