- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎么没反应 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47572)
-- 发布时间：2014/3/12 17:15:00
-- 怎么没反应
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[chanpinfenlei1] = \'" & dr("chanpinfenlei1") & "\'"
Case 1
Filter = "[chanpinfenlei1] = \'" & dr("chanpinfenlei1") & "\' And [chanpinfelei2] = \'" & dr("chanpinfelei2") & "\'"
Case 2
Filter = "[chanpinfenlei1] = \'" & dr("chanpinfenlei1") & "\' And [chanpinfelei2] = \'" & dr("chanpinfelei2") & "\' And [chanpinfenlei3] = \'" & dr("chanpinfenlei3") & "\'"
End Select
End If
Tables("chanpinku").Filter = Filter
运行后没按我设想的运行
此主题相关图片如下：rutu.jpg
此主题相关图片如下：rutu.jpg-- 发布时间：2014/3/12 17:17:00
--
你弹出一下你拼接的Filter 不就知道了.
-- 发布时间：2014/3/12 17:19:00
--
他应该只出现最后指定的项目才对呀
-- 发布时间：2014/3/12 17:21:00
--
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[chanpinfenlei1] = \'" & dr("chanpinfenlei1") & "\'"
Case 1
Filter = "[chanpinfenlei1] = \'" & dr("chanpinfenlei1") & "\' And [chanpinfelei2] = \'" & dr("chanpinfelei2") & "\'"
Case 2
Filter = "[chanpinfenlei1] = \'" & dr("chanpinfenlei1") & "\' And [chanpinfelei2] = \'" & dr("chanpinfelei2") & "\' And [chanpinfenlei3] = \'" & dr("chanpinfenlei3") & "\'"
End Select
End If
Messagebox.show(Filter)
Tables("chanpinku").Filter = Filter
-- 发布时间：2014/3/12 17:31:00
-- 求助谢谢
1、已建立一个名为产品库对的表
2、想通过此目录树的选择，在右边窗口中的TABLE中生成筛选后的数据。
3、此代码在目录树的afterselectnode\\afterchecknode中均无法实现上述目的。
谢谢，请狐狸爸爸看下哪出了问题
-- 发布时间：2014/3/12 17:33:00
--
2 4楼都已经给过你指导了, 如果非要无视. 那就请上个例子,让别人帮你解决.
-- 发布时间：2014/3/12 17:36:00
-- 感谢
感谢，我发现table没与目录树建立事件关联
-- 发布时间：2014/3/12 17:42:00
--
呵呵，搞不定就做例子发上来，最快，一分钟知道结果。