主题：[求助]列标题不同的跨表引用及更新

数据表（总表）与事务总表（分表）的部分列的内容相同，但是列名不同，对应关系是：
    数据表：   对象、      日期、                          时间、                          地点、            
    事务总表：案号、      开庭排期_开庭日期、      开庭排期_开庭时间、      开庭排期_开庭地点
我在事务总表的DataColChanged事件写下了跨表引用的代码：

If e.DataCol.Name = "对象" Then
    If e.NewValue Is Nothing Then
        e.DataRow("日期") = Nothing
        e.DataRow("时间") = Nothing
        e.DataRow("地点") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("数据表").Find("[案号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("日期") = dr("开庭排期_开庭日期")
            e.DataRow("时间") = dr("开庭排期_开庭时间")
            e.DataRow("地点") = dr("开庭排期_开庭地点")
        End If
    End If
End If

上述代码在增加新行时可以引用，我想通过两个表的[对象]、[案号]列建立关联，互相引用、更新（只要其中一个表的值发生变动，另一个表跟随变动），应该怎样改动代码。

谢谢！

附件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:表关联 - 副本.table

由于数据表是主表，当在数据表的现有行编辑时，如果事务表里没有对应的案号，就新增一行与之对应。请版主指教！

谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:表关联 - 副本.table