主题：两个集合中的值遍历时提示出错

各位老师，

 

下面这段代码哪里有错，运行后总是提示如下出错

 

此主题相关图片如下：360截图20120909093358185.jpg

 

Dim tr1 As WinForm.TreeView = Forms("单据流程").Controls("TreeView1")
Dim clb As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
'选取当前目录树中存在的表形成集合
Dim nms As New List(of String)
For Each nd As WinForm.treenode In tr1.nodes
    nms.add(nd.name)
Next
nms.sort()

'从系统表中选择公开的表形成集合并排序,如果集合中的值不在当前目录树中,则增加形成列表框选项
Dim drs As New List(of DataRow)
drs = DataTables("系统表").Select("公开 = True ")
drs.sort()
For Each dr As DataRow In drs
    Dim s As String = dr("表名")
    If nms.Contains(s)  = false Then
        clb.Items.Add(s)
    End If
Next

 

谢谢！

去掉这行：

drs.sort()

 

如果这个事件中的代码中只有这段代码，则要看TreevieW1在设计中是否手工增加了节点，否则，TreeVieW1节点则为空！

谢谢，真的去掉

drs.sort()

这句就可以了，但是理解不了为什么，狐爸可以解释一下吗？谢谢！

 

drs不存在排序的说法，你要排序，Select有排序参数：

 

http://www.foxtable.com/help/topics/0400.htm