以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于筛选表的问题  (http://foxtable.net/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条)