主题：求助

If  e.DataCol.Name = "数量"  Then
     Dim dr As DataRow = DataTables("配送表").Find ( "配送单ID ='"& e.DataRow("配送单ID") & "' And 产品 ='"& e.DataRow("产品") & "' And 客户= '"& e.DataRow("客户") & "'")
If  dr("配送数量")< 0  Then
        Messagebox.Show("数量不准确,请重新输入数量!","提示") 

        e.DataRow("数量")=0
        e.Cancel = True
    End If
End If