主题：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

    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