Dim I As Integer
Dim nodx As Node
Set nodx = TreeView1.Nodes.Add(, , "r", "根", 6, 6)
For I = 0 To 10
Set nodx = TreeView1.Nodes.Add("r", tvwChild, "I" & Trim(Str(I)), "第" + Str(I) + "个", 2, 3)
Next Ikey 必须以字母开始
Dim nodx As Node
Set nodx = TreeView1.Nodes.Add(, , "r", "根", 6, 6)
For I = 0 To 10
Set nodx = TreeView1.Nodes.Add("r", tvwChild, "I" & Trim(Str(I)), "第" + Str(I) + "个", 2, 3)
Next Ikey 必须以字母开始
key不能用数字的