以下是引用y2287958在2019/5/21 11:04:00的发言：
上实例

以下是引用有点甜在2019/5/21 15:12:00的发言：

参考

 

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

 

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

 

以下是引用有点甜在2019/5/22 15:52:00的发言：

参考代码，看懂代码

 

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

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

以下是引用有点甜在2019/5/23 18:34:00的发言：

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