- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何写代码实现所需要？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13165)
-- 发布时间：2011/9/30 15:01:00
-- 如何写代码实现所需要？
此主题相关图片如下：888.jpg
比如：点显示所有客户，在客户管理表中显示所有客户；点击客户分类下的工程机械，显示工程机械类的所有客户；点击客户来源下的广告网络媒体显示相关所有客户。
Dim Value()As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
Case 0
Tables("客户管理").Filter = " & Value(0) & "\'"
Case 1
Tables("客户管理").Filter ="[客户分类] = \'" & Value(1) & "\'"
Case 2
Tables("客户管理").Filter ="[客户来源] = \'" & Value(2) & "\'"
Case 3
Tables("客户管理").Filter ="[客户状态] = \'" & Value(2) & "\'"
Case 4
Tables("客户管理").Filter ="[客户区域] = \'" & Value(2) & "\'"
End Select
以上代码实现不了，不知道如何写？求助各位了，谢谢！
-- 发布时间：2011/9/30 15:08:00
--
这样就行了：
Select Case e.Node.Level
Case 0
Tables("客户管理").Filter = ""
Case 1
Tables("客户管理").Filter ="[" & e.Node.ParentNode.Text & "] = \'" & e.Node.Text & "\'"
End Select
-- 发布时间：2011/9/30 16:08:00
--
谢谢！
-- 发布时间：2011/9/30 16:19:00
--
但不明白意思？能不能解释一下呀？
-- 发布时间：2011/9/30 16:54:00
--
e.node.parent.text获得选定节点的父节点内容，假定你选定的“客户分类\\机械设备”这个节点，那么：
Tables("客户管理").Filter ="[" & e.Node.ParentNode.Text & "] = \'" & e.Node.Text & "\'"
合成的结果就是：
Tables("客户管理").Filter ="[客户分类] = \'机械设备\'"
-- 发布时间：2011/9/30 16:58:00
--
这样也行,太牛了.我刚才还在一步一步做呢.气死我了,还要加油.
-- 发布时间：2011/9/30 17:06:00
--
老大,好像不能用于加载吗?
-- 发布时间：2011/9/30 17:40:00
--
Case 0
Filter = ""
Case 1
Filter ="[" & e.Node.ParentNode.Text & "] = \'" & e.Node.Text & "\'"
End Select
-- 发布时间：2011/10/1 11:56:00
--
明白了，谢谢
-- 发布时间：2011/10/6 10:59:00
--
Case 0
Filter = ""
Case 1
Filter ="[" & e.Node.ParentNode.Text & "] = \'" & e.Node.Text & "\'"
End Select