共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]关于这种目录树的问题,帮助文件里没有！
1楼
gaoyong30000 发表于：2011/9/23 20:15:00目录树第一层 也就是0节点上的 都是我自己分类的
此主题相关图片如下：1.jpg
从第二层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
Next
此项目如图：
此主题相关图片如下：1.jpg请问该如何解决？
2楼
e-png 发表于：2011/9/24 0:06:00恐怕你要提供例子上来才能引起有能力帮助你的兴趣了。
3楼
狐狸爸爸 发表于：2011/9/24 8:44:00筛选是针对选定节点的，怎么可能：
For Each nd As WinForm.TreeNode In trv.AllNodes
Next
这样不仅速度慢得出奇，而且永远都是最后一个节点生效，你筛选啥？
正常应该这样，根据选定节点生成少选条件：
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编辑过]
4楼
gaoyong30000 发表于：2011/9/24 10:16:00现在遇到一个问题 代码太繁琐
由于 我的目录树是自己设计的 第一层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 |
5楼
don 发表于：2011/9/24 10:45:00暈,這樣的代碼也叫編程?
6楼
gaoyong30000 发表于：2011/9/24 11:03:00以下是引用don在2011-9-24 10:45:00的发言：
暈,這樣的代碼也叫編程?
你最好看下我的例子
7楼
狐狸爸爸 发表于：2011/9/25 9:31:00
共7 条记录, 每页显示 10 条, 页签:
[1]