以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  对统计表再进行统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130888)
--  作者：刘林
--  发布时间：2019/2/10 20:10:00
--  对统计表再进行统计
Dim c3 As String = e.Form.Controls("combobox3").text
Dim tb As Table = Tables("县区_table5")
If c3>""
    With tb
        For i As Integer = .TopPosition To .BottomPosition
            .Rows(i)("考点学校")= c3
        Next
    End With
End If

Dim g As New GroupTableBuilder("统计表1",Tables("县区_table5"))
Dim dt6 As Table = Tables("县区_table6")
g.Groups.AddDef("考试名称","考试名称")
g.Groups.AddDef("参考学校","参考学校")
g.Groups.AddDef("考点学校","考点学校")
g.Totals.AddDef("参考人数",AggregateEnum.sum,"参考人数")
dt6.DataSource = g.BuildDataSource()
dt6.SetColVisibleWidth("考试名称|69|参考学校|200|考点学校|100|参考人数|60")


dt5是用sqlGroupTableBuilder生成的统计表
当对"考点学校“赋值后我想直接统计出汇总表，即哪个参考学校在哪个考点有多少人，但红色这句出错，该怎样能实现
--  作者：有点甜
--  发布时间：2019/2/10 20:47:00
--  
 
Dim g As New GroupTableBuilder("统计表1",Tables("县区_table5").datatable)
Dim dt6 As Table = Tables("县区_table6")
g.Groups.AddDef("考试名称","考试名称")
g.Groups.AddDef("参考学校","参考学校")
g.Groups.AddDef("考点学校","考点学校")
g.Totals.AddDef("参考人数",AggregateEnum.sum,"参考人数")
g.filter = Tables("县区_table5").filter
dt6.DataSource = g.BuildDataSource()
dt6.SetColVisibleWidth("考试名称|69|参考学校|200|考点学校|100|参考人数|60")