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

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编辑过]

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