主题：请求简化代码

Dim dr As DataRow = DataTables("货物来源").Find("编号 = '" & e.DataRow("编号") & "'")
If dr IsNot Nothing Then
    dr.Delete()
End  If
Dim drs As DataRow = DataTables("送货安排").Find("编号 = '" & e.DataRow("编号") & "'")
If drs IsNot Nothing Then
    drs.Delete()
End  If

请还让大师看一下这段代码如何简化？