以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于跨表自动更新数据的问题。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19167)
--  作者：pc005637
--  发布时间：2012/4/29 17:57:00
--  关于跨表自动更新数据的问题。

项目结构：

表A和表B通过关联列关联。

另外希望，表A的"电话号码"列和表B的"电话号码"列能够相互自动更新，就是更改了表A的电话号码后，表B的电话号码会根据表A的电话号码更新，反之亦然。

我在表A和表B的DataColChanged事件中写入如下代码：

If e.DataCol.Name = "电话号码"
    Dim Filter As String = "[关联] = \'" & e.DataRow("关联") & "\'"
    DataTables("表B").ReplaceFor("电话号码", e.NewValue, Filter)
End If

 

If e.DataCol.Name = "电话号码"
    Dim Filter As String = "[关联] = \'" & e.DataRow("关联") & "\'"
    DataTables("表A").ReplaceFor("电话号码", e.NewValue, Filter)
End If

 

这样的话，会不会造成两表的DataColChanged事件不断循环？
--  作者：mr725
--  发布时间：2012/4/29 18:53:00
--  

试试看吧···  大不了重启·
--  作者：程兴刚
--  发布时间：2012/4/29 21:46:00
--  

多循环一次，没有变化时就不再执行该事件了！
--  作者：pc005637
--  发布时间：2012/4/29 22:53:00
--  谢谢
谢谢指点。