以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于SQL加载树条件的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25844)
--  作者：xietan417
--  发布时间：2012/11/18 16:00:00
--  关于SQL加载树条件的问题

我做了一个SQL的加载树,但是我想按条件加载,下面加载所有数据是可以按条件加载,但是下面的树呢?我要怎么样写才能

按我的条加载啊!比如我要把"送货完成状态"为空 的"种类"和"客户"筛选出来!以下是我用的所代码

 

Dim Filter As String
If e.Node.Text = "加载所有数据" Then
    Filter = "[送货完成状态] Is Null"
Else
    Dim Value() As String
    Value = e.Node.FullPath.Split("\\")
    Select Case e.Node.Level
        Case 0
            Filter = "[种类] = \'" & Value(0) & "\'"
        Case 1
            Filter = "[种类] = \'" & Value(0) & "\' And [客户] = \'" & Value(1) & "\'"

    End Select
End If
DataTables("mgwork").LoadFilter = Filter
DataTables("mgwork").Load()
--  作者：lin_hailun
--  发布时间：2012/11/19 10:33:00
--  

没看懂楼主的疑问，换成下面这样看看行不。


Dim Filter As String
If e.Node.Text = "加载所有数据" Then
    Filter = "[送货完成状态] Is Null"
Else
    Dim Value() As String
    Value = e.Node.FullPath.Split("\\")
    Select Case e.Node.Level
        Case 0
            Filter = "[种类] = \'" & Value(0) & "\' And [送货完成状态] Is Null"
        Case 1
            Filter = "[种类] = \'" & Value(0) & "\' And [客户] = \'" & Value(1) & "\' And [送货完成状态] Is Null"

    End Select
End If
DataTables("mgwork").LoadFilter = Filter
DataTables("mgwork").Load()
--  作者：xietan417
--  发布时间：2012/11/19 14:19:00
--  
没错啦!你懂我的意思的嘛!看来是我这样子做的时候把双引号用错了!