Foxtable(狐表)用户栏目专家坐堂 → 两个集合中的值遍历时提示出错


  共有8690人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
zpx_2012
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:976 积分:8527 威望:0 精华:0 注册:2012/2/9 16:35:00
两个集合中的值遍历时提示出错  发帖心情 Post By:2012/9/9 9:39:00 [显示全部帖子]

各位老师,

 

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

 


图片点击可在新窗口打开查看此主题相关图片如下: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

 

谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
zpx_2012
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:976 积分:8527 威望:0 精华:0 注册:2012/2/9 16:35:00
  发帖心情 Post By:2012/9/9 14:07:00 [显示全部帖子]

谢谢,真的去掉

drs.sort()

这句就可以了,但是理解不了为什么,狐爸可以解释一下吗?谢谢!

 


 回到顶部