共14 条记录, 每页显示 10 条, 页签: [1] [2]

标题：如何写代码实现所需要？

1楼

lgcfoxtable 发表于：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:01:35编辑过]

2楼

狐狸爸爸 发表于：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

3楼

lgcfoxtable 发表于：2011/9/30 16:08:00

谢谢！

4楼

lgcfoxtable 发表于：2011/9/30 16:19:00

但不明白意思？能不能解释一下呀？

5楼

狐狸爸爸 发表于：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:54:36编辑过]

6楼

blackzhu 发表于：2011/9/30 16:58:00

这样也行,太牛了.我刚才还在一步一步做呢.气死我了,还要加油.

7楼

blackzhu 发表于：2011/9/30 17:06:00

老大,好像不能用于加载吗?

8楼

blackzhu 发表于：2011/9/30 17:40:00

dim filter as string

Select Case e.Node.Level
Case 0
Filter = ""
Case 1
Filter ="[" & e.Node.ParentNode.Text & "] = '" & e.Node.Text & "'"
End Select

datatables("客户管理").loadfilter = filter

datatables("客户管理").load

按照帮助应该这样的,怎么不行呢?

9楼

lgcfoxtable 发表于：2011/10/1 11:56:00

明白了，谢谢

10楼

布莱克朱 发表于：2011/10/6 10:59:00