Set nod = TreeView1.Nodes.Add("Stock", tvwChild, "SMaterial", "01(原料)", 4, 2)
Set nod = TreeView1.Nodes.Add("SMaterial", tvwChild, "SMImp", "01(内销用料件)", 4, 2)
Set nod = TreeView1.Nodes.Add("SMaterial", tvwChild, "SMExp", "02(外销用料件)", 4, 2)
Set nod = TreeView1.Nodes.Add("SMaterial", tvwChild, "SMOth", "03(其他用料件)", 4, 2)
Set nod = TreeView1.Nodes.Add("Stock", tvwChild, "SProduct", "02(成品)", 4, 2)
Set nod = TreeView1.Nodes.Add("SProduct", tvwChild, "SPImp", "01(内销成品)", 4, 2)
Set nod = TreeView1.Nodes.Add("SProduct", tvwChild, "SPExp", "02(外销成品)", 4, 2)
Set nod = TreeView1.Nodes.Add("Root", tvwChild, "Business", "业务情况", 4, 2) '一级-业务情况
Set nod