以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  For Each  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133523)
--  作者：huizhong
--  发布时间：2019/4/15 18:42:00
--  For Each
老师，请教下

关于For Each 我想实现其在遍历过程中如果集合所有内容均没有找到执行“保存”，如果找到了提示每个循环找到的内容，该如何操作，如下代码

Dim AAAA As DialogResult
AAAA = MessageBox.Show("是否将该行内容导入上单系统 ?" , "提示" , MessageBoxButtons.YesNo , MessageBoxIcon.Question)
If AAAA = DialogResult.Yes Then
    Dim str As String = e.Form.Controls("TextBox1").value
    For Each r As Row In Tables("电台广告忌讳词设置表").rows
        If r("忌讳词") > "" AndAlso str.Contains(r("忌讳词")) Then
            MessageBox.Show("该内容存在忌讳词 [" & r("忌讳词") & " ],请修改后导入!")
        End If
    Next
End If

我想在以上代码基础上实现如果始终没有找到内容，则执行以下代码

Dim BBBB As String = e.Form.Controls("TextBox2").value
DataTables("电台广告单号明细表").ReplaceFor("内容审核", True , "[单号] = \'" & BBBB & "\'")
DataTables("电台广告单号明细表").Save()
DataTables("电台广告单号明细表").Load()

请问老师，在循环语句中该如何加入这段代码？
--  作者：有点蓝
--  发布时间：2019/4/15 20:20:00
--  
Dim AAAA As DialogResult
AAAA = MessageBox.Show("是否将该行内容导入上单系统 ?" , "提示" , MessageBoxButtons.YesNo , MessageBoxIcon.Question)
If AAAA = DialogResult.Yes Then
    Dim str As String = e.Form.Controls("TextBox1").value
    Dim isfind As Boolean
    For Each r As Row In Tables("电台广告忌讳词设置表").rows
        If r("忌讳词") > "" AndAlso str.Contains(r("忌讳词")) Then
            isfind = True
            MessageBox.Show("该内容存在忌讳词 [" & r("忌讳词") & " ],请修改后导入!")
        End If
    Next
    If isfind =False Then
        Dim BBBB As String = e.Form.Controls("TextBox2").value
        DataTables("电台广告单号明细表").ReplaceFor("内容审核", True , "[单号] = \'" & BBBB & "\'")
        DataTables("电台广告单号明细表").Save()
        DataTables("电台广告单号明细表").Load()
    End If
End If
--  作者：huizhong
--  发布时间：2019/4/16 10:07:00
--  
问题已解决，谢谢老师