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

参考

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

参考

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

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

参考代码，看懂代码

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 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.Groups.AddDef("核定编制数")

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

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