公式也会犯神经啊 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 公式也会犯神经啊

共有2504人关注过本帖树形打印复制链接主题：公式也会犯神经啊

moxuejiahui

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

等级：幼狐帖子：105 积分：849 威望：0 精华：0 注册：2015/1/25 23:22:00

公式也会犯神经啊 发帖心情

Post By：2015/5/13 21:07:00 [显示全部帖子]

公式出错了，很奇葩

dim jy as Double

dim sr as Double

dim zc as Double

dim i as Integer

Dim hs As Integer =Tables("统计").Rows.Count - 1

for i = 0 to hs

dim dr as datarow = DataTables("统计").DataRows(i)

sr = sr + dr("收入")

zc = zc + dr("支出")

jy = jy + sr - zc

dr("结余") = jy

这个公式应该没有问题吧，好几百项都没问题，可是就只有在我选择统计其中的一种物料时的最后一行出错，并且上一行的结余是3.23（正确）

下一行收入为0，发出3.23，可是算出的结余却是8.886966888，选其他物料不会出错，并且我要是把这个统计放在两个时间段分别统计的话也都不会出错。确实不知道是怎么回事了，呵呵

moxuejiahui

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

等级：幼狐帖子：105 积分：849 威望：0 精华：0 注册：2015/1/25 23:22:00

Post By：2015/5/13 21:18:00 [显示全部帖子]

这样可以，可是我那样为什么会有一个不正确的呢，统计表的数据是根据窗口选项变化的，会排序后逐行进行窗口添加控件，我写的代码有错误码？

moxuejiahui

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

等级：幼狐帖子：105 积分：849 威望：0 精华：0 注册：2015/1/25 23:22:00

Post By：2015/5/13 21:27:00 [显示全部帖子]

改完后那一个个例还是出错，呵呵，一开始用的上面的代码，但是发现排序不行，所以改为你那代码，结果发现了一个个例。呵呵，按说公式本身应该没问题的啊，怎么会有那么一个个例呢？

主题：公式也会犯神经啊