主题：Foxtable 2013问题收集贴

新版本中发现 目录树的一个问题 代码如下

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权","分组|权限","","_Sortkey")
Dim drs As List(of DataRow)
drs = DataTables("操作员信息").Select("编号 Is not null")
For Each dt As DataRow In drs
    If trv2.Nodes.Contains(dt("权限组")) = False Then
        trv2.Nodes.Add(dt("权限组"))
    End If
   trv2.Nodes(dt("权限组")).nodes.Add(dt("姓名"))

Next

trv2.ExpandAll()
trv1.ExpandAll()

经过测试 代码执行到 trv2.Nodes(dt("权限组")).nodes.Add(dt("姓名"))

就会出现如下报错

此主题相关图片如下：173824.png

应该这样吧:

.......

For Each dt As DataRow In drs
    If trv2.Nodes.Contains(dt("权限组")) = False Then
        trv2.Nodes.Add(dt("权限组"))
        trv2.Nodes(dt("权限组")).nodes.Add(dt("姓名"))

    End If

Next

....