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

就是把代码拷贝几份也不写么？

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()
            dr("身份证号") = e.DataRow("身份证号")
            dr("报销起日") = e.DataRow("报销起日")
            dr("年龄") = e.DataRow("年龄")
            dr("床号") = e.DataRow("床号")
            dr("住院号") = e.DataRow("住院号")
           
        Else
            dr("身份证号") = e.DataRow("身份证号")
            dr("报销起日") = e.DataRow("报销起日")
        End If
        If dr4 Is Nothing Then
            dr4 = DataTables("出院记录").AddNew()
            dr4("身份证号") = e.DataRow("身份证号")
            dr4("报销起日") = e.DataRow("报销起日")
            dr4("年龄") = e.DataRow("年龄")
            dr4("床号") = e.DataRow("床号")
            dr4("住院号") = e.DataRow("住院号")
        Else
            dr4("身份证号") = e.DataRow("身份证号")
            dr4("报销起日") = e.DataRow("报销起日")
        End If
        If dr6 Is Nothing Then
            dr6 = DataTables("再入院记录").AddNew()
            dr6("身份证号") = e.DataRow("身份证号")
            dr6("报销起日") = e.DataRow("报销起日")
            dr6("年龄") = e.DataRow("年龄")
            dr6("床号") = e.DataRow("床号")
            dr6("住院号") = e.DataRow("住院号")
        Else
            dr6("身份证号") = e.DataRow("身份证号")
            dr6("报销起日") = 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
        If dr4 IsNot Nothing Then
            dr4(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
        If dr6 IsNot Nothing Then
            dr6(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

------------

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.Delete()
End If
If dr4 IsNot Nothing Then
    dr4.Delete()
End If
If dr6 IsNot Nothing Then
    dr6.Delete()
End If

报什么错？关键是你要理解代码啊，灵活变通啊。