老师，请教下
关于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()
请问老师，在循环语句中该如何加入这段代码？
加好友 
发短信
Post By：2019/4/15 18:42:00 [显示全部帖子]
