SUM等于0时的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → SUM等于0时的问题

共有1758人关注过本帖树形打印复制链接主题：SUM等于0时的问题

douglas738888

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

SUM等于0时的问题 发帖心情

Post By：2017/5/22 15:35:00 [只看该作者]

请教老师，下面代码，如果sum=0时，TEXT显示 1.11022302462516E-16 不是0.0

参数值例如：-1.0，-2.0 ,0.0 ，1.0, 2.0 计算下来是0.0

Dim Count03 As Double
Count03 = DataTables("因子库主表").Compute("Sum(参数计量)")

Dim lbl03 As WinForm.Label
lbl03 = e.Form.Controls("Label16")
lbl03.Text = "因子参数计量总值: 总因子值为 " & Count03 & ""

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/22 16:17:00 [只看该作者]

Dim Count03 As Double
Count03 = DataTables("因子库主表").Compute("Sum(参数计量)")

Dim lbl03 As WinForm.Label
lbl03 = e.Form.Controls("Label16")
lbl03.Text = "因子参数计量总值: 总因子值为 " & val(Format(Count03, "0.0000"))& ""

[此贴子已经被作者于2017/5/22 16:17:39编辑过]

主题：SUM等于0时的问题