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

第14列是审核通过的逻辑判断列。希望点击目录树后再加上只加载通过审核的行

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

后面的标点符号自己已经搞不清楚了，求甜老师修改一下。谢谢！！

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

太感谢了，又来麻烦甜老师。。太不好意思了。您能全国开培训班巡讲就好了。收费高点都可以。