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") ‘这儿，没有执行，报错：集合已修改；可能无法执行枚举操作。
这个代码需要做什么功能？遍历的时候不能直接更改集合元素的位置的。或者另外定义一个集合添加需要的结果