[求助]关于这种目录树的问题,帮助文件里没有！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

目录树第一层也就是0节点上的都是我自己分类的

从第二层1 开始是根据表里面列的值进行细分的

现在我想实现点击目录树任何一层都可以进行筛选（例如：点击欲购车型即可筛选出欲购车型列里所有非空的数据）

这个代码貌似不起作用

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each nd As WinForm.TreeNode In trv.AllNodes

'If nd.Text.IndexOf("加载全部客户") >= 0 Then

If nd.Text = "加载全部客户" Then

Tables("销售意向客户进度管制").ApplyFilter =False

End If

If nd.Text = "欲购车型" Then

Tables("销售意向客户进度管制").Filter = "欲购车型 Is Not Null"

End If

此项目如图：

此主题相关图片如下：1.jpg

请问该如何解决？

恐怕你要提供例子上来才能引起有能力帮助你的兴趣了。

筛选是针对选定节点的，怎么可能：

For Each nd As WinForm.TreeNode In trv.AllNodes

这样不仅速度慢得出奇，而且永远都是最后一个节点生效，你筛选啥？

正常应该这样，根据选定节点生成少选条件：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
If nd.Text = "加载全部客户" Then
Tables("销售意向客户进度管制").ApplyFilter =False
ElseIf nd.Text = "欲购车型" Then
Tables("销售意向客户进度管制").Filter = "欲购车型 Is Not Null"
End If

关于自己设计筛选书，帮助有现成的例子：

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

但是看帮助一定要按顺序，要理解，不要总是生搬硬套，所以还是建议你从使用指南开始，系统性地看两到三遍帮助，真正做到理解。

[此贴子已经被作者于2011-9-24 8:45:37编辑过]

现在遇到一个问题代码太繁琐

由于我的目录树是自己设计的第一层0节点都是我自己命名的第二层1节点开始列中才有数据

现在我只能用If nd.Text = 来一个个套用显得很繁琐

If e.Node.Text.IndexOf("销售顾问") >= 0 Then

Tables("销售意向客户进度管制").Filter ="销售顾问 Is Not Null"

End If

If e.Node.Text.IndexOf("王小贺") >= 0 Then

Tables("销售意向客户进度管制").Filter ="[销售顾问] = '王小贺'"

End If

If e.Node.Text.IndexOf("胡安邦") >= 0 Then

Tables("销售意向客户进度管制").Filter ="[销售顾问] = '胡安邦'"

End If

If e.Node.Text.IndexOf("于骏驰") >= 0 Then

Tables("销售意向客户进度管制").Filter ="[销售顾问] = '于骏驰'"

End If

If e.Node.Text.IndexOf("沈扬") >= 0 Then

Tables("销售意向客户进度管制").Filter ="[销售顾问] = '沈扬'"

End If

If e.Node.Text.IndexOf("王杜俊") >= 0 Then

Tables("销售意向客户进度管制").Filter ="[销售顾问] = '王杜俊'"

End If

If e.Node.Text.IndexOf("陆海妹") >= 0 Then

Tables("销售意向客户进度管制").Filter ="[销售顾问] = '陆海妹'"

End If

If e.Node.Text.IndexOf("马维") >= 0 Then

Tables("销售意向客户进度管制").Filter ="[销售顾问] = '马维'"

End If

If e.Node.Text.IndexOf("韩文秀") >= 0 Then

Tables("销售意向客户进度管制").Filter ="[销售顾问] = '韩文秀'"

End If

If e.Node.Text.IndexOf("戴琼花") >= 0 Then

Tables("销售意向客户进度管制").Filter ="[销售顾问] = '戴琼花'"

End If

表和窗口菜单如下窗口菜单里客户信息分类里的目录树

能否有简化的方法？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:例子.rar

暈,這樣的代碼也叫編程?

以下是引用don在2011-9-24 10:45:00的发言：

暈,這樣的代碼也叫編程?

你最好看下我的例子

看看帮助是怎么做的：

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

主题：[求助]关于这种目录树的问题,帮助文件里没有！