以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树筛选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82719)
--  作者：实话实说
--  发布时间：2016/3/23 14:22:00
--  目录树筛选问题

窗口(产品表)和窗口(表B)表结构和目录树结构一样,单击筛选代码一样,为什么产品表可以筛选,而表B不能筛选?前者是通过产品表生成的目录树,后者是通过目录树文件生成的目录树

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:pack.zip
--  作者：实话实说
--  发布时间：2016/3/23 14:36:00
--  

是这样，我通过表数据生成目录树，目录树单击筛选正常；然后将目录树保存为目录树文件，再通过目录树文件加载，单击的筛选代码不变，这时不能筛选了
--  作者：实话实说
--  发布时间：2016/3/23 15:31:00
--  
大红袍老师，“目录树生成表（表B）”窗口中目录树为什么不能筛选？
--  作者：大红袍
--  发布时间：2016/3/23 15:47:00
--  

看看

 

http://www.foxtable.com/help/topics/2690.htm

 

不能直接用 e.Node.DataRow
--  作者：实话实说
--  发布时间：2016/3/23 16:11:00
--  

以下代码也不行，希望指教

If e.Node.text <> "全部"
Dim Value()As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        Tables("表B").Filter ="[产品大类] = \'" & Value(0) & "\'"
    Case 1
        Tables("表B").Filter ="[产品分类] = \'" & Value(0) & "\' And [产品分类] = \'" & Value(1) & "\'"
    Case 2
        Tables("表B").Filter ="[产品大类] = \'" & Value(0) & "\' And [产品分类] = \'" & Value(1) & "\'And [型号] = \'" & Value(2) & "\'"
    Case 3
        Tables("表B").Filter ="[产品大类] = \'" & Value(0) & "\' And [产品分类] = \'" & Value(1) & "\'And [型号] = \'" & Value(2) & "\'And [规格] = \'" & Value(3) & "\'"
End Select

Else
    Tables("表B").ApplyFilter = False  \'关闭筛选
End If
[此贴子已经被作者于2016/3/23 16:11:54编辑过]
--  作者：实话实说
--  发布时间：2016/3/23 16:16:00
--  
同样的表结构，同样的目录树，同样节点代码，为什么“产品代码”窗口可以筛选，“目录树生成表”窗口不行？
--  作者：大红袍
--  发布时间：2016/3/23 16:21:00
--  
If e.Node.text <> "全部"
    Dim Value()As String
    Value = e.Node.FullPath.Split("\\")
    Select Case e.Node.Level
        Case 0
            Tables("表B").Filter ="[产品大类] = \'" & Value(0).split(" ")(1) & "\'"
        Case 1
            Tables("表B").Filter ="[产品大类] = \'" & Value(0).split(" ")(1) & "\' And [产品分类] = \'" & Value(1).split(" ")(1) & "\'"
        Case 2
            Tables("表B").Filter ="[产品大类] = \'" & Value(0).split(" ")(1) & "\' And [产品分类] = \'" & Value(1).split(" ")(1) & "\'And [型号] = \'" & Value(2).split(" ")(1) & "\'"
        Case 3
            Tables("表B").Filter ="[产品大类] = \'" & Value(0).split(" ")(1)& "\' And [产品分类] = \'" & Value(1).split(" ")(1) & "\'And [型号] = \'" & Value(2).split(" ")(1) & "\'And [规格] = \'" & Value(3).split(" ")(1) & "\'"
    End Select
   
Else
    Tables("表B").ApplyFilter = False  \'关闭筛选
End If
--  作者：实话实说
--  发布时间：2016/3/23 16:27:00
--  

谢了