以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在形成的Excel报表中为什么计算差不对呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11841)
--  作者：新福星
--  发布时间：2011/8/14 3:46:00
--  [求助]在形成的Excel报表中为什么计算差不对呢?

Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作

Dim a1 As Decimal ,a2 As Decimal

 

形成a1,a2程序体....


    Sheet(x-1 , 15).Value =a1
    Sheet(x-1 , 16).Value =a2

 

上述是我做的一张报表程序的示意结构。

作用是用Excel文件形式输出一张报表,并准备用a1和a2的差验证结果,正确的情况下a1和a2是相等的，这由上述单元格的结果证实。但是我如果用Sheet(x-1 , 15).Value =a1-a2表达结果时，理论上应该是0才对，可是得到的结果不可预知，没有规律而言！什么原因呢？请教狐爸谢谢！