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

参考

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 As New GroupTableBuilder("人事台账", DataTables("单位名称"))  '定义一个临时表，名称为"人事台账"，对表单位名称进行统计
g.Groups.AddDef("单位简称")                                         '根据单位简称分组
g.Totals.Addexp("单位简称", AggregateEnum.count)                    '根据单位简称分组并统计个数
Dim dt = g.BuildDataSource()

Dim d1 As Date = new Date(Date.Today.year, 1, 1)                   '定义时间d1，时间为今年的1月1日
g = New GroupTableBuilder("人事台账", DataTables("新增人员记录"))   '临时表根据新增人员记录表进行分组
g.Groups.AddDef("单位简称")                                         '根据单位简称统计个数
g.Totals.AddDef("姓名", AggregateEnum.Count, "一月_增加_公招")       '一月_增加_公招根据新增人员记录表的姓名列统计个数
g.Filter = "[新增类别] = '公招' and 新增时间 >= #" & d1 & "# and 新增时间 < #" & d1.AddMonths(1) & "#"  '统计新增类别为公招而且时间大于等于今年1月1日且小于2月1日的个数
Dim dt1 = g.BuildDataSource()

有点甜老师，我大概能理解代码的意思，我还想实现两个功能：一个是临时表的“单位简称”怎么按单位名称表中的顺序排列；二是我还想从“单位名称”表中增加核定编制数和当前在编人数并引用到临时表，谢谢！！！

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")