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") ‘这儿，没有执行，报错：集合已修改；可能无法执行枚举操作。
加好友 
发短信
Post By：2024/8/4 15:24:00 [只看该作者]
