[求助]一张表数据变更、增加或删除，自动同步更新另外三张表某一字段，编译错误，盼指教，多谢。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在“黑名单”数据表datacolchangededit加入代码判断，如果该表有新增户名，则自动在“账户开户”、“账户变更”、“账户”三个表中自动查找是否有该户名，如果有，则弹出对话框提醒用户，点击“确认”后这三个表中的字段“是否黑名单”（逻辑型）的值变为TRUE，否则还是FAlse，如果我在“黑名单”数据表删除了一个户名，其他三个表要同步判断，查找“是否黑名单”字段值的逻辑值，并且自动变更为否，但是报编译错误，不知道是语法还是哪里出错了。盼指教，多谢。

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

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

For Each dr3 As DataRow In fhz

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

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

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

Else

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

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

End If

主题：[求助]一张表数据变更、增加或删除，自动同步更新另外三张表某一字段，编译错误，盼指教，多谢。