以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  集合已修改;可能无法执行枚举操作。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192943)

--  作者:zhangjian222200
--  发布时间:2024/8/4 15:24:00
--  集合已修改;可能无法执行枚举操作。
Functions.Execute("LogText","4") ’这儿执行了
Dim shangSheng_s As New List(Of String)
Dim drs2 As List(of DataRow) = DataTables("shiPinXiangGuan").SQLSelect("[shangShengHang] = \'1\'")
For Each dr2 As DataRow In drs2
        shangSheng_s = dr_1.Lines("shiPinJvBaoBeiZhu")
        For Each shangSheng As String In shangSheng_s
            If shangSheng.StartsWith(dr2("shiPinBianHao")) Then \'找到了:视频编号,删除,然后,将此行,上升到0行
                shangSheng_s.Remove(shangSheng)
                shangSheng_s.Insert(0,shangSheng) \'第一行前.插入
            End If
        Next
        dr_1.Lines("shiPinJvBaoBeiZhu") = shangSheng_s
Next
Functions.Execute("LogText","5") ‘这儿,没有执行,报错:集合已修改;可能无法执行枚举操作。

--  作者:有点蓝
--  发布时间:2024/8/4 20:32:00
--  
这个代码需要做什么功能?遍历的时候不能直接更改集合元素的位置的。或者另外定义一个集合添加需要的结果