主题：[求助]非关联表间的同步更新数据

Select Case e.DataCol.name

    Case "身份证号","报销起日"

        Dim dr As DataRow = DataTables("病案首页").sqlFind("身份证号 = '" & e.OldValue & "报销起日 = '"& e.OldValue & "'")

        Dim dr4 As DataRow = DataTables("出院记录").sqlFind("身份证号 = '" & e.OldValue & "报销起日 = '"& e.OldValue & "'")

        Dim dr6 As DataRow = DataTables("再入院记录").sqlFind("身份证号 = '" & e.OldValue & "报销起日 = '"& e.OldValue & "'")

        If dr Is Nothing Then 

            dr = DataTables("病案首页").AddNew()

            dr4 = DataTables("出院记录").AddNew()

            dr6 = DataTables("再入院记录").AddNew()

            dr("身份证号") = e.DataRow("身份证号")

            dr("报销起日") = e.DataRow("报销起日")

            dr("年龄") = e.DataRow("年龄")

            dr("床号") = e.DataRow("床号")

            dr("住院号") = e.DataRow("住院号")

        Else

            dr("身份证号") = e.DataRow("身份证号")

            dr("报销起日") = e.DataRow("报销起日")

        End If

    Case "年龄","床号","住院号"

        Dim dr As DataRow = DataTables("病案首页").sqlFind("身份证号 = '" & e.DataRow("身份证号") & "报销起日 ='" & e.DataRow("报销起日") & "'" )

        

        Dim dr4 As DataRow = DataTables("出院记录").sqlFind("身份证号 = '" & e.DataRow("身份证号") & "报销起日 ='" & e.DataRow("报销起日") & "'" )

       

        Dim dr6 As DataRow = DataTables("再入院记录").sqlFind("身份证号 = '" & e.DataRow("身份证号") & "报销起日 ='" & e.DataRow("报销起日") & "'" )

        If dr IsNot Nothing Then

            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

        End If

End Select

2、报销名单DataColChanging