如何让加载树有条件加载？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4632人关注过本帖树形打印复制链接主题：如何让加载树有条件加载？

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 [显示全部帖子]

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

xiaohuli

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：461 积分：3442 威望：0 精华：0 注册：2014/2/8 11:13:00

Post By：2014/4/28 10:29:00 [显示全部帖子]

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

xiaohuli

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()