TreeView1.LineStyle = tvwRootLinesTreeView1.Nodes.Add , , "A0", "根节点"'rs为返回的数据库的记录集For i = 1 To rs.RecordCount TreeView1.Nodes.Add "A" & i - 1, tvwChild, "A" & i, rs.Fields("字段名") rs.MoveNextNext i
