[求助]一表数据变更后自动更新其他数据表字段值报错，求教，多谢。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DataColChanged事件

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

Dim Filter As String

If e.NewValue > "" Then

Filter = "[户名] = '" & e.NewValue & "'"

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

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

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

End If

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

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

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

End If

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

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

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

End If

If e.OldValue > "" Then

Filter = "[户名] = '" & e.OldValue & "'"

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

DataRowDeleting事件

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

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