主题：通过审核逻辑列的加载，在甜老师写的代码基础上加写的麻烦老师看看

Select Case e.Node.Level

    Case 0

        Forms("主界面").close

        If e.Node.Text = "全市" Then

            DataTables("表A").LoadFilter = "第14列 = true"

        Else

            DataTables("表A").LoadFilter = "区域 = '" & e.Node.Text & "' and 第14列 = true"

        End If

    Case 1

        Forms("主界面").close

        Dim ary() As String = e.Node.FullPath.Split("\")

        If ary(0) = "全市" Then

            DataTables("表A").LoadFilter = "第2列 = '" & ary(1) & "'"

        Else

            DataTables("表A").LoadFilter = "区域 = '" & ary(0) & "' and 第2列 = '" & ary(1) & "'"' and 第14列 = true"

        End If

End Select

DataTables("表A").Load