我在窗口中的按钮控件上 编写了事件命令:
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")
单击执行 错误提示 无法找到列 授课内容