试试
第一个代码：
b.Filter = "责任部门 = '" & e.Form.Controls("combobox1").text & "' and [处理结果] <> '合格'"
第二个代码：
Dim b As new SQLCrossTableBuilder(Nothing,"开单明细表") '统计表可以为空
b.C
b.HGroups.AddDef("开单日期",DateGroupEnum.Year,"年")
b.HGroups.AddDef("开单日期",DateGroupEnum.month,"月")
b.HGroups.AddDef("开单日期",DateGroupEnum.week,"周")
b.HGroups.AddDef("横向开单部门")
b.VGroups.AddDef("横向控制类型")
b.Totals.AddDef("单数","总单数")
b.Totals.AddDef("金额","总金额")
b.Filter = "责任部门 = '" & e.Form.Controls("combobox1").text & "' and [横向控制类型] is not null"
……
第三个代码看不出什么问题，试试
b.Totals.AddDef("稽核频次","稽核项次")
改为
b.Totals.AddDef("稽核频次") ‘确定这个是真正的列名’
加好友 
发短信
Post By：2019/10/13 22:39:00 [只看该作者]
