以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  【求助】目录树的筛选条件写法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72146)

--  作者：everybody --  发布时间：2015/7/24 11:44:00 --  【求助】目录树的筛选条件写法 在maintablechanged中，想定义“考察”表中 【姓名】列的下拉树 \'生成考察表中的姓名栏下拉树 If MainTable.Name = "考察" Then     Dim dr As DataRow \'定义当前行------------------------------》后加     Dim tb1 As New DropTreeBuilder     tb1.SourceTable = DataTables("得票") \'指定目录树表     tb1.TreeCols = "姓名" \'指定用于生成目录树的列     tb1.TreeFilter="[编号]=\'" &  dr("推荐编号")  & "\'"   \'筛选得票表的[编号]=当前行.推荐编号--------》后加     tb1.SourceCols = "姓名|职务" \'指定数据来源列     tb1.ReceiveCols = "姓名|职务" \'指定数据接收列     Tables("考察").Cols("姓名").DropTree = tb1.Build() End If tb1.TreeFilter="[编号]=\'" &  dr("推荐编号")  & "\'"     这句错了？另外，如果想增加两个条件，比如再加上 "[是否]=0“， 怎么拼接法？

--  作者：everybody --  发布时间：2015/7/24 11:45:00 --   错误提示： 未将对象引用设置到对象的实例。

--  作者：大红袍 --  发布时间：2015/7/24 12:12:00 --   If MainTable.Name = "考察" Then     Dim tb1 As New DropTreeBuilder     tb1.SourceTable = DataTables("得票") \'指定目录树表     tb1.TreeCols = "姓名" \'指定用于生成目录树的列     Dim dr As Row = Tables("得票表").Current     tb1.TreeFilter="[编号]=\'" &  dr("推荐编号")  & "\' and [是否]=0"   \'筛选得票表的[编号]=当前行.推荐编号--------》后加     tb1.SourceCols = "姓名|职务" \'指定数据来源列     tb1.ReceiveCols = "姓名|职务" \'指定数据接收列     Tables("考察").Cols("姓名").DropTree = tb1.Build() End If [此贴子已经被作者于2015/7/24 12:11:54编辑过]

--  作者：everybody --  发布时间：2015/7/24 13:30:00 --   学习了！！！！！！！