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

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

Select Case e.DataCol.name
    Case "案号"
        Dim dr As DataRow
        If e.OldValue = Nothing Then
            dr = DataTables("事务主表").Find("[对象] = '" & e.NewValue & "'")
        Else
            dr = DataTables("事务主表").Find("[对象] = '" & e.oldvalue & "'")
        End If
        If dr Is Nothing Then dr = DataTables("事务主表").AddNew
        dr("对象") = e.DataRow("案号")
        dr("日期") = e.DataRow("开庭排期_开庭日期")
        dr("时间") = e.DataRow("开庭排期_开庭时间")
        dr("地点") = e.DataRow("开庭排期_开庭地点")
       
    Case "开庭排期_开庭日期","开庭排期_开庭时间","开庭排期_开庭地点"
        Dim dr = DataTables("事务主表").Find("[对象] = '" & e.DataRow("案号") & "'")
        If dr Is Nothing Then
            dr = DataTables("事务主表").AddNew
            dr("对象") = e.DataRow("案号")
        End If
        dr("对象") = e.DataRow("案号")
        dr("日期") = e.DataRow("开庭排期_开庭日期")
        dr("时间") = e.DataRow("开庭排期_开庭时间")
        dr("地点") = e.DataRow("开庭排期_开庭地点")
       
End Select