案例“统计演示”中的疑问。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有11829人关注过本帖树形打印复制链接主题：案例“统计演示”中的疑问。

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的进行分组统计。该如何增加条件代码？！

dearleung

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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'")

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

下一主题 >> << 上一主题

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