| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 案例“统计演示”中的疑问。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11123) |
| -- 作者：dearleung -- 发布时间：2011/7/8 13:22:00 -- 案例“统计演示”中的疑问。 打开软件附带的案例“统计演示”提问： 原代码如下，是依“产品”相同的对“数量”和“金额”进行分组统计。 Dim dr As DataRow = e.DataRow 问题：如果想在上述统计要求的基础上，增设一条件，对“折扣”>0的进行分组统计。该如何增加条件代码？！
|
| -- 作者：hhbb -- 发布时间：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 -- 发布时间：2011/7/8 14:42:00 -- 晕，这么简单。。。 我之前还写了N次。。。。都不对。。 dr("金额") = dt.Compute("Sum(金额)","[产品] = \'" & dr("产品") & "\'And “折扣 > 0") dr("金额") = dt.Compute("Sum(金额)","[产品] = \'" & dr("产品") & "\'And “[折扣] > \'0\'") 请教。。。写条件代码的规则在那章节。。。看来我要恶补下才行。。。 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/7/8 14:45:00 -- 看这个： http://help.foxtable.com/topics/1284.htm
|