主题：[求助]导航相关

navbar里一共做了4个treeview,目前除了第一个可以正常显示外，其余的几个页面的treeview不生成

selectedindexchanged里的代码也写了。请教下问题出在哪？

不看到项目别人不知道你的问题出在哪。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:仓管版本1.0.zip

不好意思，导航窗口在荒料入库表里

在窗口的AfterLoad加上生成其它几个目录树的代码就可以了。

我是参照将军仓管写的afterload,把我不需要的删了

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
'Dim t4 As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim t5 As WinForm.TextBox = e.Form.Controls("TextBox5")
Dim t3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim dr As DataRow
dr = DataTables("系统参数表").Find("类别 = '本企业名称'") '找出编号为03的产品
t5.Value = dr("内容") & "V1.0" & "  咨询:QQ31358568"

报表目录=ProjectPath & "\报表\"
t1.Value =User.name
t2.Value = Date.Now
't4.value="咨询:QQ31358568"
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim bar As WinForm.NavBar = e.Form.Controls("NavBar1")
Dim nd As WinForm.TreeNode
MainTable = Tables("库存")

Bar.SelectedIndex=0
Tables("库存").OpenRecordGrid()

 Tables("库存").Filter =""
    Tables("库存").Filter ="[当前库存] <>0"

t3.Value = "本次查询表中共有" & Tables("库存").Rows.count & "条记录"
Tables("库存").AutoSizeCols()
'Forms("出入库单").Close

tv.Nodes.Clear
tv.BuildTree("库存", "货品类型|货品名称")
nd = tv.Nodes.Insert("加载全部记录","加载全部记录",0)
' MessageBox.Show("已经移动到最顶部! " )
Dim r1 As WinForm.RadioButton = e.Form.Controls("RadioButton1")
r1.Checked=True

Dim n1 As WinForm.NavBar = e.Form.Controls("NavBar1")

MainTable = Tables("库存")
Forms("往来企业").Close
关停事件=False

 

主要就是删了上面一段，那为什么他的treeview可以顺利运行呢？

你的代码：

 

Select Case Bar.SelectedPage.Name

 

但是你所有的页面都没有设置页面名称和标题，只设置了按钮标题。

 

 

此主题相关图片如下：tt.jpg

建议：

 

1、生成目录树的代码最好在AfterLoad事件

2、应该看帮助，而不是看人家的例子，没有一个例子能够有帮助这么专业和详细。