主题：Foxtable 2013问题收集贴

以下是引用rjh4078在2013-4-22 17:40:00的发言：

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

 

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

....

以下是引用rjh4078在2013-4-22 18:10:00的发言：
找到问题了  ACESS转SQL的问题 感谢ybil

所以嘛,有问题先从自己找原因