主题：[求助]页面集合筛选树

页面集合里有两个页面， 筛选树的代码分别是：

 

Dim Filter1 As String
Dim dr1 As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter1 = "[类别] = '" & dr1("类别") & "'"
    End Select
End If
Tables("JCCODE1").Filter = Filter1

 

 

Dim Filter2 As String
Dim dr2 As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter2 = "[类别] = '" & dr2("类别") & "'"
    End Select
End If
Tables("JCCODE"2).Filter = Filter2

 

为什么第一个起作用， 第二个不起作用呢？

Tables("JCCODE"2).Filter = Filter2

那是我写错了， 实际代码就是

 

 

谢谢你的回复！

 不起作用，就只能是你的表名写错了，注意是不是副本表。

Dim Filter2 As String
Dim dr2 As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter2 = "[类别] = '" & dr2("类别") & "'"
    End Select
End If
Tables("JCCODE3").Filter= Filter2

 

老师，表名没写错啊！

双击显示所有行可以。 双击节点不显示任何数据？？

不是副本表！

应该是表名问题。

此主题相关图片如下：qq截图20150719104234.png

找到原因了， 确实是表名的问题， 谢谢各位老师

 那这样写看看

 

Dim Filter2 As String = ""
Dim dr2 As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter2 = "[类别] = '" & dr2("类别") & "'"
    End Select
End If
Tables("JCCODE3").Filter= Filter2

谢谢老师！