主题：关于目录树节点重复了

此主题相关图片如下：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