我在窗口中的按钮控件上 编写了事件命令：

Dim g As New CrossTableBuilder("统计表1", DataTables("陪练课时统计表"))
g.Caption = "课时结算"
g.HGroups.AddDef("教师姓名")
g.VGroups.AddDef("签到时间", "{0}月")
g.VGroups.AddDef("授课内容")
g.Totals.AddDef("授课内容", AggregateEnum.Count, "累计课时")
g.VerticalTotal = True
g.Subtotal = True
g.Filter = "教师姓名 = \'" & e.Form.Controls("ComboBox1").Text & "\'"
g.Build()
MainTable = Tables("统计表1")

DataTables("教师课时统计表").DataRows.Clear
Dim f As new Filler
f.SourceTable = DataTables("统计表1") \'指定数据来源
f.SourceCols = "教师姓名,授课内容,累计课时" \'指定数据来源列
f.DataTable = DataTables("教师课时统计表") \'指定数据接收表
f.DataCols = "教师姓名,授课内容,累计课时" \'指定数据接收列
f.Fill() \'填充数据

MainTable = Tables("教师课时统计表")
DataTables.Unload("统计表1")

单击执行 错误提示 无法找到列 授课内容

应该是错在 临时表的多层表头这个问题上了

我把命令改成：

Dim g As New GroupTableBuilder("统计表1", DataTables("陪练课时统计表"))
g.Groups.AddDef("教师姓名")
g.Groups.AddDef("授课内容")
g.Totals.AddDef("授课内容", AggregateEnum.Count,"签到次数")
g.Filter = "教师姓名 = \'" & e.Form.Controls("ComboBox1").Text & "\'"
g.Build(False)

DataTables("教师课时统计表").DataRows.Clear
Dim f As new Filler
f.SourceTable = DataTables("统计表1") \'指定数据来源
f.SourceCols = "教师姓名,授课内容,签到次数" \'指定数据来源列
f.DataTable = DataTables("教师课时统计表") \'指定数据接收表
f.DataCols = "教师姓名,授课内容,签到次数" \'指定数据接收列
f.Fill() \'填充数据

MainTable = Tables("教师课时统计表")
DataTables.Unload("统计表1")

 就可以执行了，执行后数据导入下表如图

此主题相关图片如下：课时.png

问题一，按月统计教师课时数的功能怎样才能实现？？

问题二，

前三列的数据是单击控件代入的，后面课时费列能否根据授课内容自动代入，分成比例根据教师姓名自动代入。这样课程收费列就可以按照表达式直接算出结果。

我分别建了 关于课程价格 和教师分成比例的表，是用表关联就可以实现吗？

1、设置分组统计，然后查看代码

http://www.foxtable.com/help/topics/2670.htm

2、参考 http://www.foxtable.com/help/topics/1451.htm

Dim g As New GroupTableBuilder("统计表1", DataTables("钢琴课时统计表"))
g.Groups.AddDef("教师姓名")
g.Groups.AddDef("授课内容")
g.Totals.AddDef("授课内容", AggregateEnum.Count,"签到次数")
g.Filter = "教师姓名 = \'" & e.Form.Controls("ComboBox1").Text & "\'"
g.Build(False)

DataTables("教师课时统计表").DataRows.Clear
Dim f As new Filler
f.SourceTable = DataTables("统计表1") \'指定数据来源
f.SourceCols = "教师姓名,授课内容,签到次数" \'指定数据来源列
f.DataTable = DataTables("教师课时统计表") \'指定数据接收表
f.DataCols = "教师姓名,授课内容,签到次数" \'指定数据接收列
f.Fill() \'填充数据

MainTable = Tables("教师课时统计表")
DataTables.Unload("统计表1")

我现在是这么写的命令

Dim g As New CrossTableBuilder("统计表1", DataTables("陪练课时统计表"))
g.Caption = "课时结算"
g.HGroups.AddDef("教师姓名")
g.VGroups.AddDef("签到时间", "{0}月")

这样可以出 月份  但是第二步就找不到列明了

1、用分组统计，不要用交叉统计；

2、看4楼5楼

 AfterLoad事件加入筛选代码

Tables("表A").Filter = "第一列 = \'1234\'"