以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  很诡异的问题,两个值不相等  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132922)

--  作者:fubblyc
--  发布时间:2019/4/2 11:59:00
--  很诡异的问题,两个值不相等
老师,奇怪,不知道哪里有问题,sum = dz  不成立:

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190402115404.png
图片点击可在新窗口打开查看


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
--  
原来如此,可以了,谢谢甜大大