以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]交叉统计表设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93624)
--  作者：zcgmxf
--  发布时间：2016/12/2 14:35:00
--  [求助]交叉统计表设置
老师，如何使交叉统计表单元格文字居中排列？谢谢！
--  作者：有点蓝
--  发布时间：2016/12/2 15:10:00
--  
http://www.foxtable.com/webhelp/scr/0048.htm
--  作者：zcgmxf
--  发布时间：2018/8/9 10:15:00
--  
老师，交叉统计垂直汇总时，如何实现只汇总  金额 列  不汇总数量列？谢谢！

Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
g.HGroups.AddDef("药品名称")
b.Groups.AddDef("日期","{0}月") \'添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Totals.AddDef("金额") \'添加金额列用于统计
b.Subtotal = True \'生成汇总模式
B.SubtotalLevel = 0 \'只生成总计行
b.Build \'生成统计表
MainTable = Tables("统计表1") \'打开生成的统计表

[此贴子已经被作者于2018/8/9 10:17:01编辑过]
--  作者：有点甜
--  发布时间：2018/8/9 10:18:00
--  

生成统计表1以后，再做汇总统计

 

http://www.foxtable.com/webhelp/scr/00144.htm

 
--  作者：zcgmxf
--  发布时间：2018/8/9 10:40:00
--  
老师，就是下面的那个问题处理不好。有时候可能有三个月，有时候可能只统计1个月的，
g1 = New Subtotalgroup
g1.Aggregate = AggregateEnum.Sum
g1.GroupOn = "*"
g1.TotalOn = "金额_1,合计_金额"   ‘  就是 金额_1 ,’
g1.Caption = "总计"
t.SubtotalGroups.Add(g1)
t.Subtotal()
--  作者：有点甜
--  发布时间：2018/8/9 11:08:00
--  

循环每一列，设置，如

 

 

Dim cs As String = ""
For Each c As Col In Tables("统计表1").cols
    If c.name.contains("金额") Then
        cs &= c.name & ","
    End If
Next
msgbox(cs.trim(","))
--  作者：zcgmxf
--  发布时间：2018/8/9 15:18:00
--  
老师，学艺不精，不知道如何写入代码，请指教，谢谢！
下面的代码执行可以正常显示，
Dim cs As String = ""
For Each c As Col In Tables("统计表1").cols
    If c.name.contains("金额") Then
        cs &= c.name & ","
    End If
Next
Dim pas() As String = cs.Split(",")
For i As Integer = 0 To pas.Length - 3
    msgbox("金额_" & 1 + i)
Next

    g.TotalOn = "金额_ & i +1 ,合计_金额"    这个就提示没有 金额_ & i +1 列
--  作者：有点甜
--  发布时间：2018/8/9 16:18:00
--  

Dim cs As String = ""
For Each c As Col In Tables("统计表1").cols
    If c.name.contains("金额") Then
        cs &= c.name & ","
    End If
Next
msgbox(cs.trim(","))

g.TotalOn = cs.trim(",")