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

1 看到一个冗余的地方。在 Dim jcxx 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

2 可以通过加载（外部数据库）或筛选把数据界定好之后，统一用替换语句一次性更新，保存；

3 没有看到你更新数据后的保存语句；

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