主题：datarowdeleting 问题

If e.DataRow("销售单号") = ""
Else
    Dim dr As DataRow = DataTables("销售单").find("销售单号 = '" & e.DataRow("销售单号") & "' And 销售单行号 = '" & e.DataRow("行号") & "' And 产品代号 = '" & e.DataRow("产品代号") & "'")
    If dr IsNot Nothing Then
        dr("要求生产数") = dr("要求生产数") - e.DataRow("要求生产数量")
    Else
        msgbox("没找到")
    End If
End If