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

各位老师，

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

此主题相关图片如下：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()

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