以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  集合已修改；可能无法执行枚举操作。  (http://foxtable.com/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 --   这个代码需要做什么功能？遍历的时候不能直接更改集合元素的位置的。或者另外定义一个集合添加需要的结果