以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教个DropTreeBuilder，谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11802)
--  作者：狐友
--  发布时间：2011/8/12 10:42:00
--  请教个DropTreeBuilder，谢谢

动态生成目录树列表，想把表B的结余列=0（表达式列）的，在目录树了不显示，

有个TreeFilter，但不知如何加进去，提示不是DropTreeBuilder的成员

 

If  CurrentTable.Name = "表A" Then
    Dim tb As New DropTreeBuilder
    tb.SourceTable = DataTables("表B") \'指定目录树表
    tb.TreeCols = "第一列|第四列|第二列" \'指定用于生成目录树的列
    tb.SourceCols = "第一列|第四列|第二列" \'指定数据来源列
    tb.ReceiveCols = "第一列|第二列" \'指定数据接收列
    Tables("表A").Cols("第一列").DropTree = tb.Build()
End If

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:6.table
--  作者：狐狸爸爸
--  发布时间：2011/8/12 10:48:00
--  
If  CurrentTable.Name = "表A" Then
    Dim tb As New DropTreeBuilder
    tb.SourceTable = DataTables("表B") \'指定目录树表
    tb.TreeCols = "第一列|第四列|第二列" \'指定用于生成目录树的列
    tb.SourceCols = "第一列|第四列|第二列" \'指定数据来源列
    tb.ReceiveCols = "第一列|第二列" \'指定数据接收列
    tb.TreeFilter = "[第二列]-[第三列] <> 0"
    Tables("表A").Cols("第一列").DropTree = tb.Build()
End If
--  作者：狐友
--  发布时间：2011/8/12 11:05:00
--  
谢谢，软件版本跟新了就可以了