Foxtable(狐表)用户栏目专家坐堂 → 汇总时,列中内容问题?


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

主题:汇总时,列中内容问题?

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


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/2/18 9:42:00 [显示全部帖子]

必须使用辅助列,不想看到辅助列,可以隐藏起来,注意代码开头的三个点,不能省略

'''
Dim t As Table = Tables("窗口1_table1")
If t.DataTable.DataCols.Contains("临时姓名") = False
    t.DataTable.DataCols.Add("临时姓名", Gettype(String))
End If
If t.DataTable.DataCols.Contains("临时金额") = False
    t.DataTable.DataCols.Add("临时金额", Gettype(Double))
End If
For Each r As Row In t.rows
    r(“临时姓名") = r("姓名").replace("(到店)", "")
Next
For Each r As Row In t.rows
    r("临时金额") = t.Compute("sum(购买金额)", "姓名 like '%" & r("临时姓名") & "%'")
Next
t.Cols("临时姓名").Visible = False
t.Cols("临时金额").Visible = False

Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "临时姓名"
g.TotalOn = "购买金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
t.sort = "临时金额 desc"
t.Subtotal(True)


 回到顶部