主题：[求助]一表数据变更后自动更新其他数据表字段值报错，求教，多谢。

在“黑名单”数据表datacolchangededit加入代码判断，如果该表有新增户名，则自动在“账户开户”、“账户变更”、“账户”三个表中自动查找是否有该户名，如果有，则弹出对话框提醒用户，点击“确认”后这三个表中的字段“是否黑名单”（逻辑型）的值变为TRUE，否则还是FAlse，结果报错：未知编译错误，请教下哪里出问题了？多谢。

If e.DataCol.Name = "户名"

    Dim Filter As String = "[户名] = '" & e.DataRow("户名") & "'"

    Dim jcxx As List(Of DataRow) = DataTables("核准类账户开户").Select(Filter)

    Dim hzbg As List(of DataRow)=DataTables("核准类账户变更").Select(filter)

    Dim fhz As List(of DataRow)=DataTables("非核准类账户").Select(filter)

    For Each dr1 As DataRow In jcxx

        dr("是否黑名单") = True

        MessageBox.Show("请注意表中有账户进入黑名单!")

    Next

    For Each dr2 As DataRow In hzbg

        dr2("是否黑名单") = True

        MessageBox.Show("请注意表中有账户进入黑名单!")

    Next

    For Each dr3 As DataRow In fhz

        dr3("是否黑名单")=True

        MessageBox.Show("请注意表中有账户进入黑名单!")

    Next

End If

If e.DataCol.Name = "户名" Then

    Dim Filter As String = "[户名] = '" & e.DataRow("户名") & "'"

    Dim jcxx As List(Of DataRow) = DataTables("账户开户").Select(Filter)

    Dim hzbg As List(of DataRow)=DataTables("账户变更").Select(filter)

    Dim fhz As List(of DataRow)=DataTables("账户").Select(filter)

    For Each dr1 As DataRow In jcxx

        If dr1("户名")=e.newvalue Then

            dr1("是否黑名单") = True

            MessageBox.Show("请注意《账户开户》表中有账户进入黑名单!")

        Else

            dr1("是否黑名单") = False

            MessageBox.Show("请注意《账户开户》表中有账户取消黑名单!")

        End If

    Next

    

    For Each dr2 As DataRow In hzbg Then

        If dr2("户名")=e.newvalue Then

            dr2("是否黑名单") = True

            MessageBox.Show("请注意《账户变更》表中有账户进入黑名单!")

        Else

            dr2("是否黑名单")=False

            MessageBox.Show("请注意《账户变更》表中有账户取消黑名单!")f

        End If

    Next

    

    For Each dr3 As DataRow In fhz

        If dr3("户名")=e.newvalue Then

            dr3("是否黑名单")=True

            MessageBox.Show("请注意《账户》表中有账户进入黑名单!")

        Else

            dr3("是否黑名单")=False

            MessageBox.Show("请注意《账户》表中有账户取消黑名单!")

        End If

    Next

End If

If e.DataRow.IsNull("户名")= False Then

    dim Filter = "[户名] = '" & e.DataRow("户名") & "'"

    If DataTables("账户开户").Find(Filter) IsNot Nothing Then

        DataTables("账户开户").ReplaceFor("是否黑名单",False,Filter)

        MessageBox.Show("请注意《账户开户》表中有账户取消黑名单!")

    End If

    If DataTables("账户变更").Find(Filter) IsNot Nothing Then

        DataTables("账户变更").ReplaceFor("是否黑名单",False,Filter)

        MessageBox.Show("请注意《账户变更》表中有账户取消黑名单!")

    End If

    If DataTables("账户").Find(Filter) IsNot Nothing Then

        DataTables("账户").ReplaceFor("是否黑名单",False,Filter)

        MessageBox.Show("请注意《账户》表中有账户取消黑名单!")

    End If

End If