Foxtable(狐表)用户栏目专家坐堂 → 如何让加载树有条件加载?


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

主题:如何让加载树有条件加载?

美女呀,离线,留言给我吧!
xiaohuli
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:3442 威望:0 精华:0 注册:2014/2/8 11:13:00
如何让加载树有条件加载?  发帖心情 Post By:2014/4/28 10:12:00 [只看该作者]

想实现如果经理登录进去后,显示一个加载树,以产品名称和客户名称进行加载,但设置一个条件,只加载已经审核(逻辑列)过的行,未审核的不加载,这个如何实现。


 回到顶部
美女呀,离线,留言给我吧!
xiaohuli
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:3442 威望:0 精华:0 注册:2014/2/8 11:13:00
  发帖心情 Post By:2014/4/28 10:13:00 [只看该作者]

加载树窗口已经做好了,就是不知如何设置只加载已审核的行的条件。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/28 10:14:00 [只看该作者]

如果是用系统的加载树,可以看这里

 

看实例6 http://www.foxtable.com/help/topics/2022.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/28 10:15:00 [只看该作者]

 如果是自己做的加载树,只需要在点击节点的时候加一个条件便可。

 

 贴出你原先的代码看看

[此贴子已经被作者于2014-4-28 10:16:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/28 10:15:00 [只看该作者]

前面这些帮助都有例子.http://www.foxtable.com/help/topics/2742.htm

只加载 已审核的行, 只需要在拼接完条件之后,再追加    & " and 已经审核=true"  即可

 回到顶部
美女呀,离线,留言给我吧!
xiaohuli
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:3442 威望:0 精华:0 注册:2014/2/8 11:13:00
  发帖心情 Post By:2014/4/28 10:29:00 [只看该作者]

老师不对呀,我本来的加载树可以加载数据,但加载出来的是全部的(已审核和未审核的都能加载出来,但在加了你的那个条件("And 审核 = true ")后,直接就是列名 'true' 无效。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/28 10:30:00 [只看该作者]

 有没有加空格?

 

 " And 审核 = true "


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/28 10:31:00 [只看该作者]

你拼接的不对,代码发出来看看.   弹出一下拼接后的条件看看


 回到顶部
美女呀,离线,留言给我吧!
xiaohuli
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:3442 威望:0 精华:0 注册:2014/2/8 11:13:00
  发帖心情 Post By:2014/4/28 10:41:00 [只看该作者]

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[类型] = '" & dr("类型") & "' " And 审核 = True ""
        Case 1
            Filter ="[类型] = '" & dr("类型") & "' And [名称] = '" & dr("名称") & "' " And 审核 = True ""
    End Select
End If
DataTables("gdzc").LoadFilter = Filter
DataTables("gdzc").Load()

 


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/28 10:43:00 [只看该作者]

Case 0
            Filter ="[类型] = '" & dr("类型") & "'  And 审核 = True "
        Case 1
            Filter ="[类型] = '" & dr("类型") & "' And [名称] = '" & dr("名称") & "'  And 审核 = True "


其实可以简便一点,直接在最后

DataTables("gdzc").LoadFilter = Filter & " And 审核 = True"

 回到顶部
总数 23 1 2 3 下一页