蓝老师好,以下代码怎么改才能使图2达到图1那样?我想对每个部门的总项次、合格项和不合格项进行汇总,最后算出执行率。谢谢。代码:
Dim g As New SQLCrossTableBuilder("部门执行力排名分析","V_JH_执行力排名分析")
G.C
g.HGroups.AddDef("责任部门")
g.VGroups.AddDef("稽核项目","{0}")
g.VGroups.AddDef("稽核判定","{0}")
g.Totals.AddDef("计数")
g.VerticalTotal = True
g.HorizontalTotal = True
g.Decimals = 0
g.FromServer=True
g.Build()
Tables(eform.name & "_Table1").DataSource =g.BuildDataSource
图1:

此主题相关图片如下:1.png

图2:

此主题相关图片如下:2.png

[此贴子已经被作者于2021/3/4 21:12:22编辑过]