专家坐堂-通过审核逻辑列的加载，在甜老师写的代码基础上加写的麻烦老师看看Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  通过审核逻辑列的加载，在甜老师写的代码基础上加写的麻烦老师看看  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59522)

--  作者：nclo
--  发布时间：2014/11/5 21:05:00
--  通过审核逻辑列的加载，在甜老师写的代码基础上加写的麻烦老师看看
第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

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

--  作者：有点甜
--  发布时间：2014/11/5 21:11:00
--

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

--  作者：nclo
--  发布时间：2014/11/5 21:15:00
--
太感谢了，又来麻烦甜老师。。太不好意思了。您能全国开培训班巡讲就好了。收费高点都可以。