以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  提示除以0  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161490)
--  作者：keli0917
--  发布时间：2021/3/18 22:12:00
--  提示除以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错误。不知道如何修改代码才不会提示？？？
--  作者：keli0917
--  发布时间：2021/3/18 22:13:00
--  
如果报关数量是0，就把单价和报关金额变为0.
--  作者：有点蓝
--  发布时间：2021/3/18 22:15:00
--  
    Case "报关数量","报关金额"
                     If e.DataRow.IsNull("报关数量") OrElse e.DataRow.IsNull("报关金额") orelse e.DataRow("报关数量")=0
            Else
--  作者：keli0917
--  发布时间：2021/3/19 20:58:00
--  
表格里，比如报关数量等于100，单价1，报关金额100，现在我发现报关金额不是100，要改为200，我先把100用键盘是的DELETE删除100，这时报关金额就是空了，此时会提示尝试除以0。如果避免出现这个提示？，当然选中后直接输入200，就不会提示。
[此贴子已经被作者于2021/3/19 21:00:03编辑过]
--  作者：程兴刚
--  发布时间：2021/3/19 21:42:00
--  
数学老师有没有教过您0不能做除数？