Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "名称"
Dim lst As New List(Of String)
For Each dc As Col In Tables("招标信息").Cols
If lst.Contains(dc.Name) = False Then
lst.Add(dc.Name)
End If
Next
If e.NewValue IsNot Nothing Then
If e.NewValue.Length >= 4 Then
For i As Integer = 0 To e.NewValue.Length -4
Dim s As String = e.NewValue.Substring(i,4)
For Each nm As String In lst
If nm.Contains(s) Then
dr("标准名称") = nm
lst.Remove(nm)
End If
Next
Next
End If
\'msgbox(String.Join("|",lst.ToArray))
If e.NewValue.Length >= 2 Then
For i As Integer = 0 To e.NewValue.Length -2
Dim s As String = e.NewValue.Substring(i,2)
For Each nm As String In lst
If nm.Contains(s) Then
dr("标准名称") = nm
lst.Remove(nm)
End If
Next
Next
End If
End If
End Select
错误提示:
.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2018.10.9.1
错误所在事件:表,招标公告,DataColChanged
详细错误信息:
调用的目标发生了异常。
集合已修改;可能无法执行枚举操作。