Foxtable(狐表)用户栏目专家坐堂 → 这个统计方法,必须只能统计第一列


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

主题:这个统计方法,必须只能统计第一列

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
这个统计方法,必须只能统计第一列  发帖心情 Post By:2016/10/18 15:47:00 [只看该作者]

这个统计方法 只能将列放在第一个?
我测试了半天,放第一个就可以,放中间就不行?????????????????


Dim t As Table = Tables("订单")
Dim
g As SubtotalGroup
t.SubtotalGroups.Clear
()
t.GroupAboveData = False
t.TreeVisible = False
g = New
SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn =
"产品"
g.Caption =
"{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()

Dim r As Row
For
i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If
r.IsGroup '如果是分组行
        Dim
f As String = "产品 = '" & r("产品") &
"'"
       
Dim v As String = " 订单数:" & t.Compute("Count(日期)",f)
        v = v & " 订购数量:" & t.Compute("Sum(数量)",f)
        v = v & " 订购金额:" & t.Compute("Sum(金额)",f)
        r("产品") = "产品:" & r("产品") & v
    End
If
Next


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2016/10/18 15:58:00 [只看该作者]

 搞定了.

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


加好友 发短信
等级:超级版主 帖子:106688 积分:542629 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/18 16:04:00 [只看该作者]

可以的,不过要注意取值的列,以Excel报表.table为例

Dim t As Table = Tables("订单")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "客户"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "客户 = '" & r("产品") & "'"
        Dim v As String = " 订单数:" & t.Compute("Count(日期)",f)
        v = v & " 订购数量:" & t.Compute("Sum(数量)",f)
        v = v & " 订购金额:" & t.Compute("Sum(金额)",f)
        r("产品") = "客户:" & r("产品") & v
    End If
Next


 回到顶部