主题：跨表删除

Select Case e.DataCol.name

    Case "采购编号"

        If e.DataCol.Name = "采购编号" AndAlso e.NewValue <> Nothing Then

            Dim fdr As DataRow = DataTables("应付账款表").SQLFind("采购编号 = '" & e.NewValue & "'")

            If fdr Is Nothing Then

                fdr = DataTables("应付账款表").AddNew

                fdr("采购编号") = e.DataRow("采购编号")

                fdr("采购日期") = e.DataRow("采购日期")

                fdr("采购单位") = e.DataRow("采购单位")

               fdr.save

             End If

        End If

End Select

Dim dr As DataRow = DataTables("应付账款表").SQLFind("采购编号 = '" & e.DataRow("采购编号") & "'")

If dr IsNot Nothing Then

    dr.Delete()

End If

为什么在采购单中删除记录，应付账款表中 的 该记录还存在？

帮指导一下！