以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于筛选表的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40895)
--  作者：有点甜
--  发布时间：2013/10/5 15:27:00
--  
 如下。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:关联报表测试 (1).table
--  作者：有点甜
--  发布时间：2013/10/5 19:00:00
--  
Dim Value() As String
Dim Filter As String
Value = e.Node.FullName.Split("\\")
Select Case e.Node.Level
    Case 0
        If e.Node.Name = "显示所有行" Then
            filter = ""
        Else
            Filter = "供货商 = \'" & value(0) & "\'"
        End If      
    Case 1
        Filter = "供货商 = \'" & value(0) & "\' And 品种 = \'" & value(1) & "\'"
End Select
Tables("水果").Filter = Filter
--  作者：有点甜
--  发布时间：2013/10/5 19:37:00
--  
 name是你看不到，text是你看到节点值。

 你添加节点的时候，设置了name和text一样，但是你在中途改变了text的值，不能再根据text来比较，因为text变成了 显示所有行(xx条)