以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于目录树节点重复了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74572)
--  作者：xulingwen
--  发布时间：2015/9/14 14:11:00
--  关于目录树节点重复了



此主题相关图片如下：12.jpg
按此在新窗口浏览图片

窗口表事件

 

窗口与控件事件

 

导航模块_AfterLoad

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode

nd = Trv.Nodes.Add("权限管理","权限管理")

nd.Nodes.Add("成员权限与密码管理")

nd = Trv.Nodes.Add("通讯录","通讯录")

nd.Nodes.Add("联系人资料管理")

nd = Trv.Nodes.Add("订单管理","订单管理")

nd.Nodes.Add("订单统计")

nd = Trv.Nodes.Add("PMC模块","PMC模块")

nd.Nodes.Add("内部订单统计")

nd.Nodes.Add("BOM表")

nd.Nodes.Add("生产排程")

nd = Trv.Nodes.Add("仓库管理","仓库管理")

nd.Nodes.Add("库存明细")

nd.Nodes.Add("外协生产管理")

nd.Nodes.Add("成品入库")

nd.Nodes.Add("成品出库")

nd = Trv.Nodes.Add("财务管理","财务管理")

nd.Nodes.Add("客户采购与对账单管理")

nd.Nodes.Add("供应商采购与对账单管理")

nd.Nodes.Add("流水明细")

nd = Trv.Nodes.Add("薪酬体系","薪酬体系")

nd.Nodes.Add("员工考核与工资发放")

 

导航模块_TreeView1_NodeMouseClick

 

If e.Node.Level = 1 Then

    MainTable = Tables(e.Node.Text)

End If

 
--  作者：xulingwen
--  发布时间：2015/9/14 14:12:00
--  
请专家告知一下是什么问题，谢谢
--  作者：Hyphen
--  发布时间：2015/9/14 15:36:00
--  

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.Nodes.Clear()

......
--  作者：大红袍
--  发布时间：2015/9/14 15:43:00
--  

肯定是你重复添加了一次，不然不会重复的。看看其他事件代码。
--  作者：xulingwen
--  发布时间：2015/9/14 18:17:00
--  
确定没有重复添加，但是还是重复，
--  作者：大红袍
--  发布时间：2015/9/14 18:20:00
--  

肯定执行两次了。没有其他可能。
--  作者：xulingwen
--  发布时间：2015/9/14 18:23:00
--  
发附件给您，帮忙看看可以吗？谢谢
--  作者：xulingwen
--  发布时间：2015/9/14 18:24:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:erp系统.table
--  作者：大红袍
--  发布时间：2015/9/14 19:13:00
--  

你根本就不需要写任何代码，或者加上清除的代码。

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.Nodes.Clear()
Dim nd As WinForm.TreeNode
nd = Trv.Nodes.Add("权限管理","权限管理")
nd.Nodes.Add("成员权限与密码管理")
nd = Trv.Nodes.Add("通讯录","通讯录")
nd.Nodes.Add("联系人资料管理")
nd = Trv.Nodes.Add("订单管理","订单管理")
nd.Nodes.Add("订单统计")
nd = Trv.Nodes.Add("PMC模块","PMC模块")
nd.Nodes.Add("内部订单统计")
nd.Nodes.Add("BOM表")
nd.Nodes.Add("生产排程")
nd = Trv.Nodes.Add("仓库管理","仓库管理")
nd.Nodes.Add("库存明细")
nd.Nodes.Add("外协生产管理")
nd.Nodes.Add("成品入库")
nd.Nodes.Add("成品出库")
nd = Trv.Nodes.Add("财务管理","财务管理")
nd.Nodes.Add("客户采购与对账单管理")
nd.Nodes.Add("供应商采购与对账单管理")
nd.Nodes.Add("流水明细")
nd = Trv.Nodes.Add("薪酬体系","薪酬体系")
nd.Nodes.Add("员工考核与工资发放")
--  作者：xulingwen
--  发布时间：2015/9/14 21:39:00
--  
太谢谢了，大红袍