以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这个是怎么回事？明明相等！！！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96708)
--  作者：viking
--  发布时间：2017/2/26 22:47:00
--  [求助]这个是怎么回事？明明相等！！！
Dim sr As Double = DataTables("明细账").Compute("sum(收入)","[流水编号] = \'R1702000114\'")
Dim zc As Double = DataTables("明细账").Compute("sum(支出)","[流水编号] = \'R1702000114\'")
Output.Show(sr)
Output.Show(zc)
Dim ye As Double = sr - zc
Output.Show(ye)
Dim rt As DataRow = DataTables("日记账").Find("[流水编号] = \'R1702000114\'")
Dim ls As Double = rt("支出")
Output.Show(ls)
Dim ye1 As Double = ye + ls
Output.Show(ye1)
Dim sz111 As Double = -988.83 + 988.83
Output.Show(sz111)
Dim sz2 As Double = ye * -1
Output.Show(sz2)
If sz2 <> ls Then
    Output.Show("不等")
Else
    Output.Show("相等")
End If

执行结果：
2666.33
3655.16
-988.83
988.83
1.13686837721616E-13
0
988.83
不等


红色的结果，程序怎么的出来的？
好像是格式问题！
求指路！！！！
--  作者：有点色
--  发布时间：2017/2/26 23:54:00
--  

 处理下

 

http://www.foxtable.com/webhelp/scr/1829.htm