主题：关于treeview的难题

此主题相关图片如下：screenshot2.jpg

 

 

这个错误是什么意思？

字典中没有指定的键值

不知这样可否？

 

If dic.ContainsKey(dr("第二列")) = false Then
     dic.Add(dr("第二列"),tnd)

End If

建议在目录树中也增加相应的代码，新生成的数据，追加到文件中，这个案例就完整了。对了，如果目录树中要删除，会不会很麻烦

之前我也做了一个类似的案例，http://www.foxtable.com/dispbbs.asp?BoardID=2&ID=8491&replyID=&skin=1 ，大家可以下载参考，参考

 

这样才对，可避免数据表内容输入不规范导致出错：

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim lst1 As List(of String) = DataTables("表A").GetUniqueValues("","第一列")
Dim lst2 As List(of String) = DataTables("表A").GetUniqueValues("","第二列")
Dim dic As New Dictionary(Of String, WinForm.TreeNode)
Dim tnd As WinForm.TreeNode
trv.Nodes.Clear()
For Each Val As String In Lst1
    If lst2.Contains(val) = False Then
        tnd = trv.Nodes.Add(val,val)
        dic.Add(val,tnd)
    End If
Next

For Each dr As DataRow In DataTables("表A").Select("", "第一列, 第二列")

     If dic.ContainsKey(dr("第一列")) Then
         tnd = dic(dr("第一列")).Nodes.Add(dr("第二列"), dr("第二列"))
         If dic.ContainsKey(dr("第二列")) Then
             dic.Remove(dr("第二列"))
         End If
         dic.Add(dr("第二列"),tnd)

     End If
Next

哦，谢谢，我就看了粗体的那一段！

我的办法要笨些，就是再增加一列，计算这一列的值。

 

再用多列数据生成treeview。

 

代码我就不写了，很简单。

 

这个用于生成treeview的表，可以用临时表来做，项目打开后或窗口打开前更新。

 

也是不错的。

不知我的表有什么问题，只是出来了第二级

此主题相关图片如下：screenshot2.jpg

我贴出来的例子有任意多级。

检查自己输入的数据是否规范。