Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于目录树节点重复了


  共有2285人关注过本帖树形打印复制链接

主题：关于目录树节点重复了
帅哥哟，离线，有人找我吗？
xulingwen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：245 威望：0 精华：0 注册：2014/12/28 0:40:00 		关于目录树节点重复了  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：245 威望：0 精华：0 注册：2014/12/28 0:40:00 		  发帖心情 Post By：2015/9/14 14:12:00 [只看该作者]

请专家告知一下是什么问题，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2015/9/14 15:36:00 [只看该作者]

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

trv.Nodes.Clear()

......
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/14 15:43:00 [只看该作者]

肯定是你重复添加了一次，不然不会重复的。看看其他事件代码。
 回到顶部
帅哥哟，离线，有人找我吗？
xulingwen
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：245 威望：0 精华：0 注册：2014/12/28 0:40:00 		  发帖心情 Post By：2015/9/14 18:17:00 [只看该作者]

确定没有重复添加，但是还是重复，

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/14 18:20:00 [只看该作者]

肯定执行两次了。没有其他可能。
 回到顶部
帅哥哟，离线，有人找我吗？
xulingwen
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：245 威望：0 精华：0 注册：2014/12/28 0:40:00 		  发帖心情 Post By：2015/9/14 18:23:00 [只看该作者]

发附件给您，帮忙看看可以吗？谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
xulingwen
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：245 威望：0 精华：0 注册：2014/12/28 0:40:00 		  发帖心情 Post By：2015/9/14 18:24:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:erp系统.table
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：245 威望：0 精华：0 注册：2014/12/28 0:40:00 		  发帖心情 Post By：2015/9/14 21:39:00 [只看该作者]

太谢谢了，大红袍

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 5 次数据查询