【求助】目录树的筛选条件写法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】目录树的筛选条件写法

共有1892人关注过本帖树形打印复制链接主题：【求助】目录树的筛选条件写法

everybody

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

加好友

发短信

等级：小狐帖子：307 积分：2252 威望：0 精华：0 注册：2013/2/28 9:05:00

【求助】目录树的筛选条件写法 发帖心情

Post By：2015/7/24 11:44:00 [只看该作者]

在maintablechanged中，想定义“考察”表中【姓名】列的下拉树

'生成考察表中的姓名栏下拉树

If MainTable.Name = "考察" Then

Dim dr As DataRow '定义当前行------------------------------》后加

Dim tb1 As New DropTreeBuilder

tb1.SourceTable = DataTables("得piao") '指定目录树表

tb1.TreeCols = "姓名" '指定用于生成目录树的列

tb1.TreeFilter="[编号]='" & dr("推荐编号") & "'" '筛选得piao表的[编号]=当前行.推荐编号--------》后加

tb1.SourceCols = "姓名|职务" '指定数据来源列

tb1.ReceiveCols = "姓名|职务" '指定数据接收列

Tables("考察").Cols("姓名").DropTree = tb1.Build()

End If

tb1.TreeFilter="[编号]='" & dr("推荐编号") & "'" 这句错了？另外，如果想增加两个条件，比如再加上 "[是否]=0“，怎么拼接法？

everybody

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

加好友

发短信

等级：小狐帖子：307 积分：2252 威望：0 精华：0 注册：2013/2/28 9:05:00

Post By：2015/7/24 11:45:00 [只看该作者]

错误提示：

未将对象引用设置到对象的实例。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/24 12:12:00 [只看该作者]

If MainTable.Name = "考察" Then
    Dim tb1 As New DropTreeBuilder
    tb1.SourceTable = DataTables("得piao") '指定目录树表
    tb1.TreeCols = "姓名" '指定用于生成目录树的列
    Dim dr As Row = Tables("得piao表").Current
    tb1.TreeFilter="[编号]='" & dr("推荐编号") & "' and [是否]=0"   '筛选得piao表的[编号]=当前行.推荐编号--------》后加
    tb1.SourceCols = "姓名|职务" '指定数据来源列
    tb1.ReceiveCols = "姓名|职务" '指定数据接收列
    Tables("考察").Cols("姓名").DropTree = tb1.Build()
End If

[此贴子已经被作者于2015/7/24 12:11:54编辑过]

everybody

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

加好友

发短信

等级：小狐帖子：307 积分：2252 威望：0 精华：0 注册：2013/2/28 9:05:00

Post By：2015/7/24 13:30:00 [只看该作者]

学习了！！！！！！！

下一主题 >> << 上一主题

主题：【求助】目录树的筛选条件写法