- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 目录树无显示。请教狐狸爸爸：问题出在哪里？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=20523)
-- 发布时间：2012/6/11 15:29:00
-- 目录树无显示。请教狐狸爸爸：问题出在哪里？
目录树无显示。请教狐狸爸爸：问题出在哪里？（见附件）
1、窗口的AfterLoad事件：
e.Form.Controls("TreeView1").BuildTree("常用技术标准库", "发行|分类1|分类2")
2、目录树的NodeMouseDoubleClick事件：
Dim Value()As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
Case 0
Tables("常用技术标准库").Filter ="[发行] = \'" & Value(0) & "\'"
Case 1
Tables("常用技术标准库").Filter ="[发行] = \'" & Value(0) & "\' And [分类1] = \'" & Value(1) & "\'"
Case 2
Tables("常用技术标准库").Filter ="[发行] = \'" & Value(0) & "\' And [分类1] = \'" & Value(1) &"\' And [分类2] = \'" & Value(2) & "\'"
End Select
3、未将分区面板的停靠属性也设为Fill。不会是这问题吧。
此主题相关图片如下：我的窗口1.jpg
-- 发布时间：2012/6/11 15:39:00
--
看看表名和列名是不是错了。
如果搞不定，就做个例子发上来。