主题：提示除以0

Select Case e.DataCol.Name
    Case "报关数量","报关金额"
                     If e.DataRow.IsNull("报关数量") OrElse e.DataRow.IsNull("报关金额")
                e.DataRow("单价")= Nothing
            Else
                
                    e.DataRow("单价") = round2(e.DataRow("报关金额") / e.DataRow("报关数量"),4)
                            End If
        End Select

报关金额或报关数量输入0，总是提示除以0错误。不知道如何修改代码才不会提示？？？