Foxtable(狐表)用户栏目专家坐堂 → 案例“统计演示”中的疑问。


  共有11994人关注过本帖树形打印复制链接

主题:案例“统计演示”中的疑问。

帅哥哟,离线,有人找我吗?
dearleung
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:2370 威望:0 精华:1 注册:2008/9/26 22:35:00
案例“统计演示”中的疑问。  发帖心情 Post By:2011/7/8 13:22:00 [只看该作者]

打开软件附带的案例“统计演示”提问:

原代码如下,是依“产品”相同的对“数量”和“金额”进行分组统计。

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("订单")
If e.DataCol.Name = "产品" Then
    dr("数量") = dt.Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
    dr("金额") = dt.Compute("Sum(金额)","[产品] = '" & dr("产品") & "'")
End If

问题:如果想在上述统计要求的基础上,增设一条件,对“折扣”>0的进行分组统计。该如何增加条件代码?!

 


 回到顶部
帅哥哟,离线,有人找我吗?
hhbb
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:386 积分:2482 威望:0 精华:1 注册:2011/5/10 11:13:00
  发帖心情 Post By:2011/7/8 13:53:00 [只看该作者]

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("订单")
If e.DataCol.Name = "产品" Then
    dr("数量") = dt.Compute("Sum(数量)","[产品] = '" & dr("产品") & "'And 折扣 > 0")
    dr("金额") = dt.Compute("Sum(金额)","[产品] = '" & dr("产品") & "'And 折扣 > 0")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
dearleung
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:2370 威望:0 精华:1 注册:2008/9/26 22:35:00
  发帖心情 Post By:2011/7/8 14:42:00 [只看该作者]

晕,这么简单。。。

我之前还写了N次。。。。都不对。。

dr("金额") = dt.Compute("Sum(金额)","[产品] = '" & dr("产品") & "'And 折扣 > 0")

dr("金额") = dt.Compute("Sum(金额)","[产品] = '" & dr("产品") & "'And “[折扣] > '0'")

请教。。。写条件代码的规则在那章节。。。看来我要恶补下才行。。。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/7/8 14:45:00 [只看该作者]


 回到顶部