下面这段代码，每点击一次，生成的内容累加一次，我只需要生成的新内容替换旧内容，如何调整？''''-------------------从已下载下来招标公告获取"招标条件","资格条件"----------------------------
For Each r As Row In Tables("招标公告").Rows
If r("招标公告") IsNot Nothing Then
Dim nms() As String = r("招标公告").Split(vbCrlf)
Dim lst As New List(Of Integer)
For i As Integer = 0 To nms.Count -1
If nms(i) IsNot Nothing AndAlso nms(i).Trim() > "" Then 'nms(i).Trim() > "" 这个是清除空行
If nms(i).Contains("投标人资格要求") Or nms(i).Contains("投标人资格条件") Or nms(i).Contains("投标资格条件") Or nms(i).Contains("投标人的资格要求") Or nms(i).Contains("投标人资质条件与要求") Then
If i > 0 Then
lst.Add(i)
For n As Integer = 0 To i - 1
r("招标条件") &= nms(n).Trim() & vbCrLf
Next
Exit For
End If
End If
End If
Next
End If
Next
加好友 
发短信
Post By：2023/10/11 11:18:00 [只看该作者]
