以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于目录树列表过滤条件的问题（已解决）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75591)
--  作者：kite
--  发布时间：2015/10/11 1:06:00
--  [求助]关于目录树列表过滤条件的问题（已解决）

求在目录树列表中设置过滤条件的语法

 

例如：   [操作员] = \'张三\'  这是正确的

 

但是把张三换成 user.Name 就是错误的

我试过以下格式都不对

 

[操作员] = user.Name

[操作员] = \'user.Name ‘

[操作员] = Convert(user.Name, \'System.String\')

 

 

 

求正解

[此贴子已经被作者于2015/10/11 23:04:14编辑过]
--  作者：大红袍
--  发布时间：2015/10/11 10:26:00
--  

设置里面不能用代码。用代码设置

 

http://www.foxtable.com/help/topics/2127.htm

 
--  作者：kite
--  发布时间：2015/10/11 14:12:00
--  

以下是引用大红袍在2015/10/11 10:26:00的发言：

设置里面不能用代码。用代码设置

 

http://www.foxtable.com/help/topics/2127.htm

 

如果可以进行简单的  or 运算，那岂不是更灵活

[此贴子已经被作者于2015/10/11 14:13:04编辑过]
--  作者：大红袍
--  发布时间：2015/10/11 15:18:00
--  
要用变量，就必须用2楼的方法。
--  作者：kite
--  发布时间：2015/10/11 23:04:00
--  

已解决，代码如下

 

\'尝试生成目录树文件并过滤筛选符合的值
If MainTable.Name = "事项" Then
    Dim tb As New DropTreeBuilder
    tb.SourceTable = DataTables("单位") \'指定目录树表
    tb.TreeCols = "单位名称" \'指定用于生成目录树的列
    tb.SourceCols = "单位名称|单位简称|操作员" \'指定数据来源列
    tb.ReceiveCols = "单位名称|单位简称|操作员" \'指定数据接收列
    tb.TreeFilter = "[操作员]=\'" & User.Name & "\'" \'指定筛选过滤条件
    Tables("事项").Cols("单位名称").DropTree = tb.Build()
End If

 

 

写到 AfterOpenProject 事件中

或者写到MainTableChanged 事件中