Access Treeview树节点代码一

Private Sub TreeView0_Updated(Code As Integer)
Dim ndeindex As Node
Set ndeindex = TreeView0.Nodes.Add(, , "a", "基础资料 ", "k1")
Set ndeindex = TreeView0.Nodes.Add("a", tvwChild, "a1", "品号资料 维护 ", "k1")
Set ndeindex = TreeView0.Nodes.Add(, , "b", "工时资料 ", "k1")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b1", "观测资料 查询 ", "k1")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b2", "工时查询 (依品号) ", "k1")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b3", "工时查询 (依其它条件) ", "k1")
Set ndeindex = TreeView0.Nodes.Add(, , "c", "产能模式 ", "k1")
Set ndeindex = TreeView0.Nodes.Add("c", tvwChild, "c1", "FCST产能 计算 ", "k1")
Set ndeindex = TreeView0.Nodes.Add("c", tvwChild, "c2", "产能试算 ", "k1")
Set ndeindex = TreeView0.Nodes.Add(, , "d", "成本模式 ", "k1")
End Sub

上一篇:echarts 模拟迁徙


下一篇:HDU 5515 Game of Flying Circus 二分