以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 很诡异的问题,两个值不相等 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132922) |
-- 作者:fubblyc -- 发布时间:2019/4/2 11:59:00 -- 很诡异的问题,两个值不相等 老师,奇怪,不知道哪里有问题,sum = dz 不成立: Dim sum As Double = Forms("租金支付报备表").Controls("table1").Table.Compute("Sum(实付金额)") Dim dz As Double = Forms("租金支付报备表").Controls("textbox2").value output.show(sum) output.show(dz) If sum = dz Then messagebox.show("对账正确 !","提示",MessageBoxButtons.ok, MessageBoxIcon.Information) Else messagebox.show("对账错误 !","提示",MessageBoxButtons.ok, MessageBoxIcon.Information) End If [此贴子已经被作者于2019/4/2 12:00:43编辑过]
|
-- 作者:有点甜 -- 发布时间:2019/4/2 12:12:00 -- 1、试试把double改成Decimal
2、试试四舍五入后比较,如
http://www.foxtable.com/webhelp/scr/1829.htm |
-- 作者:fubblyc -- 发布时间:2019/4/2 15:39:00 -- 原来如此,可以了,谢谢甜大大 |