我想做这样一个统计表，怎么写代码啊，各位高手？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

参考代码，看懂代码

Dim g As New GroupTableBuilder("统计表1", DataTables("单位名称"))
g.Groups.AddDef("单位全称")
g.Totals.Addexp("单位全称", AggregateEnum.count)
Dim dt = g.BuildDataSource()

Dim d1 As Date = new Date(Date.Today.year, 1, 1)
g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_公招")
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"
Dim dt1 = g.BuildDataSource()

g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_全科")
g.Filter = "[新增类别] = '全科' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"
Dim dt2 = g.BuildDataSource()

Dim d2 As Date = new Date(Date.Today.year, 8, 1)
g = New GroupTableBuilder("统计表1", DataTables("新增人员记录"))
g.Groups.AddDef("单位全称")
g.Totals.AddDef("姓名", AggregateEnum.Count, "八月_增加_公招")
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d2 & "# and 新增时间 < #" & d2.AddMonths(1) & "#"
Dim dt3 = g.BuildDataSource()

dt.Combine("单位全称",dt1,"单位全称") '将销售统计数据组合到进货统计数据
dt.Combine("单位全称",dt2,"单位全称") '将销售统计数据组合到进货统计数据
dt.Combine("单位全称",dt3,"单位全称") '将销售统计数据组合到进货统计数据
dt.show("统计表1")
MainTable = Tables("统计表1")

Dim g = New sqlGroupTableBuilder("统计表1", "单位名称")
g.Groups.AddDef("_Identify")
g.Groups.AddDef("单位全称")
'g.Totals.Addexp("单位全称", AggregateEnum.count)
Dim dt = g.BuildDataSource()

在红色代码那里加入，即可

Dim g = New sqlGroupTableBuilder("统计表1", "单位名称")
g.Groups.AddDef("_Identify")
g.Groups.AddDef("单位全称")

g.Groups.AddDef("核定编制数")

g.Groups.AddDef("上年实有人数")

以下是引用xhydxs在2019/6/9 20:25:00的发言：

有点甜老师，我如果想用窗口的形式统计这个表，如何改代码呢？

[此贴子已经被作者于2019/6/9 20:25:56编辑过]

Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table

主题：我想做这样一个统计表，怎么写代码啊，各位高手？