以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树无显示。请教狐狸爸爸:问题出在哪里?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20523)

--  作者:szljd0
--  发布时间: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
--  

看看表名和列名是不是错了。

如果搞不定,就做个例子发上来。