[求助]已解决，谢谢！compute统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]已解决，谢谢！compute统计问题

共有8448人关注过本帖树形打印复制链接主题：[求助]已解决，谢谢！compute统计问题

YDS

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

加好友

发短信

等级：三尾狐帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00

[求助]已解决，谢谢！compute统计问题 发帖心情

Post By：2013/2/25 14:43:00 [只看该作者]

在进行compute的Sum计算时，如果Filter为空，怎么让结果返回0而不是返回空值！

例如：Total = DataTables("订单").Compute("Sum(数量)", "产品 = 'PD01'")

如果没有发现产品为PD01的产品，怎么让Total = 0

[此贴子已经被作者于2013-2-25 16:38:09编辑过]

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/25 14:45:00 [只看该作者]

compute返回的应该就是0吧，你哪里出问题了。

------------

测试了一下，返回的是Nothing，你定义total的时候，定义成Integer咯，默认就变成0了。

Dim total As Integer

[此贴子已经被作者于2013-2-25 14:48:29编辑过]

YDS

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

加好友

发短信

等级：三尾狐帖子：632 积分：3619 威望：0 精华：0 注册：2011/5/21 18:05:00

Post By：2013/2/25 15:06:00 [只看该作者]

我使用的时候是直接赋值给一个新建立的行，应该怎么操作呢？

Dim ndr As DataRow = dt_tj.AddNew
ndr("部门") = dr("部门")
ndr("员工") = name
Dim filter As String = "员工 = '" & name & "'"
ndr("支数") = dt_jc.Compute("Sum(完成数量)", filter & " And 日期 = #" & Date.Today & "#")

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/2/25 15:37:00 [只看该作者]

Dim ndr As DataRow = dt_tj.AddNew
ndr("部门") = dr("部门")
ndr("员工") = name
Dim filter As String = "员工 = '" & name & "'"
Dim sum As Integer= dt_jc.Compute("Sum(完成数量)", filter & " And 日期 = #" & Date.Today & "#")
ndr("支数") = sum