[求助]代码生成统计表出错(除数为0)(已解决) Post By:2011/6/25 15:34:00 [只看该作者]
在代码生成的统计表添加一列表达式统计列:计算人均加工费
Dim b As New SQLGroupTableBuilder("统计表1","日报源表") b.Groups.AddDef("日期", DateGroupEnum.None) '添加日期列用于分组 b.Groups.AddDef("单位") '根据单位分组 b.Totals.AddDef("加工费") '添加加工费列用于统计 b.Totals.AddDef("投工") '添加投工列用于统计 b.Totals.AddExp("人均","[加工费]/[投工]")'添加人均列用于计算人均加工费 b.Build '生成统计表 MainTable = Tables("统计表1") '打开生成的统计表 With Tables("统计表1") .Position = .Rows.Count - 1 End With