主题：传递数据与同步删除请教

请教老师，下面的代码是把表A某列数据传递到表B某列，但是如果表A删除一行后，在datatchanged不触发遍历，表B接收表A传递过来的数据不同步，除非表A单元格内的数据变化，表B数据才会变化

如何实现，表A的遍历数据与表B同步？

If e.DataCol.Name = "配件名称" 
    Dim pdr As DataRow = DataTables("表B").find("系统编号 = '" & e.DataRow("系统编号") & "'")     

    If pdr IsNot Nothing Then
        Dim str As String = ""
        For Each dr As DataRow In DataTables("表A").Select("系统编号 = '" & e.DataRow("系统编号") & "'") 
            str & = dr("配件名称") & vbcrlf
        Next
        pdr("配件名称") = str
    End If
End If