- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]项目初始化打开时，导航功能无法正常显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15942)
-- 发布时间：2012/1/19 15:37:00
-- [求助]项目初始化打开时，导航功能无法正常显示
我设计了一个导航窗口，如附件所示
现在有一个问题，就是我希望一打开项目时，显示案卷库的所有数据，右边的导航分三级形成目录树：保管期限，年度，分类号。
但是我这边打开项目时，导航中“案卷库”下只显示“加载全部记录”这一行，
此主题相关图片如下：1.jpg
等我点击导航中的其他版块后，再选择“案卷库”，却又可以形成三级的目录树（因为我数据中分类号这一字段都为空值，所以这边的分类号一级没有显示），这是什么原因？
此主题相关图片如下：2.jpg
我在导航窗口的Afterload事件中输入了如下代码：
以下内容为程序代码:
1 Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
2 Dim bar As WinForm.NavBar = e.Form.Controls("NavBar1")
3 \'
4 Dim nd As WinForm.TreeNode
5 MainTable = Tables("ajk")
6
7 Bar.SelectedIndex=0
8 Tables("ajk").OpenRecordGrid()
9 Tables("ajk").AutoSizeCols()
10
11
12 tv.Nodes.Clear
13 tv.BuildTree("ajk", "bgqx|nt|flh")
14 nd = tv.Nodes.Insert("加载全部记录","加载全部记录",0)
1 Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
2 Dim bar As WinForm.NavBar = e.Form.Controls("NavBar1")
3 \'
4 Dim nd As WinForm.TreeNode
5 MainTable = Tables("ajk")
6
7 Bar.SelectedIndex=0
8 Tables("ajk").OpenRecordGrid()
9 Tables("ajk").AutoSizeCols()
10
11
12 tv.Nodes.Clear
13 tv.BuildTree("ajk", "bgqx|nt|flh")
14 nd = tv.Nodes.Insert("加载全部记录","加载全部记录",0)
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导航.rar |
[此贴子已经被作者于2012-1-19 15:45:32编辑过]
-- 发布时间：2012/1/19 15:46:00
--
因为你生成目录树的代码在导航栏的SelectedIndechanged事件中，不是在窗口的AfterLoad事件中。
-- 发布时间：2012/1/19 16:13:00
--
我把生成目录树的代码从导航栏的selectedindexchanged事件中拿到窗口的afterLoad事件中，还是不行
还有就是我原来的那个导航窗口应用于另外一个项目，却能够正常显示三级目录的，但在我这边这个项目中却不行
-- 发布时间：2012/1/19 16:20:00
--
如果你代码正确，是没有可能不行的。
程序是机械的，不会随便出轨的。