vb treeview问题

2024-12-01 13:06:01

推荐回答（1个）

回答（1）：

TreeView的Add方法中的参数Key不能够使用纯数字，应该是英文字母或字母与数字的组合，所以要么你在数据库中把所有编号字段改为类似n00、n0001的形式，要么就在程序中把Add语句改一下：

Set nodx = TreeView1.Nodes.Add(, , rs.Fields("单位编号").Value, rs.Fields("单位名称").Value, 1)
改为
Set nodx = TreeView1.Nodes.Add(, , "n" & rs("单位编号"), rs("单位名称"), 1)

Set nodx = TreeView1.Nodes.Add(rs.Fields("上级单位编号").Value, tvwChild, rs.Fields("单位编号").Value, rs.Fields("单位名称").Value, 1)
改为
Set nodx = TreeView1.Nodes.Add("n" & rs("上级单位编号"), tvwChild, "n" & rs("单位编号"), rs("单位名称"), 1)