- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导航相关 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17262)
-- 发布时间：2012/3/8 14:02:00
-- [求助]导航相关
navbar里一共做了4个treeview,目前除了第一个可以正常显示外，其余的几个页面的treeview不生成
selectedindexchanged里的代码也写了。请教下问题出在哪？
-- 发布时间：2012/3/8 14:03:00
--
不看到项目别人不知道你的问题出在哪。
-- 发布时间：2012/3/8 14:26:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:仓管版本1.0.zip |
不好意思，导航窗口在荒料入库表里
-- 发布时间：2012/3/8 14:32:00
--
在窗口的AfterLoad加上生成其它几个目录树的代码就可以了。
-- 发布时间：2012/3/8 16:08:00
--
我是参照将军仓管写的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可以顺利运行呢？
-- 发布时间：2012/3/8 16:45:00
--
你的代码：
Select Case Bar.SelectedPage.Name
但是你所有的页面都没有设置页面名称和标题，只设置了按钮标题。
此主题相关图片如下：tt.jpg
建议：
1、生成目录树的代码最好在AfterLoad事件
2、应该看帮助，而不是看人家的例子，没有一个例子能够有帮助这么专业和详细。