Foxtable(狐表)用户栏目专家坐堂 → 关于SQL加载树条件的问题


  共有9235人关注过本帖树形打印复制链接

主题:关于SQL加载树条件的问题

帅哥哟,离线,有人找我吗?
xietan417
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:721 积分:6391 威望:0 精华:0 注册:2011/6/26 11:45:00
关于SQL加载树条件的问题  发帖心情 Post By:2012/11/18 16:00:00 [只看该作者]

我做了一个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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:721 积分:6391 威望:0 精华:0 注册:2011/6/26 11:45:00
  发帖心情 Post By:2012/11/19 14:19:00 [只看该作者]

没错啦!你懂我的意思的嘛!看来是我这样子做的时候把双引号用错了!

 回到顶部