老师下面当前行不出错,但一旦遍历就出错?
For Each r As Row In CurrentTable.Rows
'Dim r As Row = CurrentTable.Current
Dim ggms() As String = r("招标公告").split(vbCrlf)
Dim ss As String = ""
Dim sbs() As String = {"一","二","三","四","五","六","七"}
For Each ggm As String In ggms
If ggm.Contains("招标文件的获取") AndAlso ggm.Length > 8 AndAlso ggm.Length < 20 Then
ss = ggm.Trim()
End If
Next
'msgbox(ss)
If ss.IndexOf("招标文件的获取") > -1 Then
For i As Integer = 0 To ggms.count -1
ggms(i) = ggms(i).Trim()
If Char.IsDigit(ss.Chars(0))
If Char.IsDigit(ggms(i).Chars(0)) AndAlso Char.IsDigit(ggms(i).Chars(2)) = False
'Output.Show(ggms(i))
r("备注") &= ggms(i) & "/"
End If
Else
For Each sb As String In sbs
If ggms(i).StartsWith(sb)
'Output.Show(ggms(i))
r("备注") &= ggms(i) & "/"
End If
Next
End If
Next
End If
Next
此主题相关图片如下:1698910410396.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2023-11/202311215282021289.png)