- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]页面集合筛选树 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71821)
-- 发布时间：2015/7/18 18:52:00
-- [求助]页面集合筛选树
页面集合里有两个页面， 筛选树的代码分别是：
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
为什么第一个起作用， 第二个不起作用呢？
-- 发布时间：2015/7/18 20:00:00
--
Tables("JCCODE"2).Filter = Filter2
-- 发布时间：2015/7/18 23:07:00
--
那是我写错了， 实际代码就是
谢谢你的回复！
-- 发布时间：2015/7/19 9:47:00
--
不起作用，就只能是你的表名写错了，注意是不是副本表。
-- 发布时间：2015/7/19 10:08:00
--
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
老师，表名没写错啊！
双击显示所有行可以。 双击节点不显示任何数据？？
不是副本表！
-- 发布时间：2015/7/19 10:14:00
--
应该是表名问题。
-- 发布时间：2015/7/19 10:43:00
--
此主题相关图片如下：qq截图20150719104234.png
-- 发布时间：2015/7/19 10:51:00
--
找到原因了， 确实是表名的问题， 谢谢各位老师
-- 发布时间：2015/7/19 11:02:00
--
那这样写看看
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
-- 发布时间：2015/7/19 11:47:00
--
谢谢老师！