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
不等
红色的结果,程序怎么的出来的?
好像是格式问题!
求指路!!!!