老师好!统计不了图片!(一样的代码,一个能统计,一个不能统计!)
一、不能统计出结果的代码
'业务经理分日统计
Dim g2 As New CrossTableBuilder("业务经理报表", DataTables("业务经理跟踪表"))
g2.HGroups.AddDef("分管业务经理")
g2.VGroups.AddDef("拜访时间", "{0}月")
g2.VGroups.AddDef("拜访时间", DateGroupEnum.Day, "{0}")
g2.Totals.AddDef("拜访内容", AggregateEnum.Count, "报表")‘’‘’‘’‘’‘’‘’‘问题出在这儿!
g2.Totals.AddDef("现场图片", AggregateEnum.Count, "拍照")‘’‘’‘’‘’‘’‘’‘问题出在这儿!
g2.HorizontalTotal = True
g2.VerticalTotal = True
g2.Decimals = 0
g2.FromServer = True
g2.Build()
Tables("业务经理报表").AutoSizeCols() '设置自动列宽
'Tables("业务经理报表").OpenFilterTree("分管业务经理")'目录树
If User.Group <> "管理组" '管理组之外的人,看不到"销售代表分客户电话次数统计"
Tables("业务经理报表").Visible = False
End If
MainTable = Tables("业务经理报表")
二、能统计出结果的代码
'三个代表电话分日统计
Dim g As New CrossTableBuilder("销售代表分客户电话次数统计", DataTables("销售代表电话记录"))
g.HGroups.AddDef("录入人")
g.HGroups.AddDef("客户名称")
g.HGroups.AddDef("电话类型")
g.VGroups.AddDef("本次电话时间", "{0}月")
g.VGroups.AddDef("本次电话时间", DateGroupEnum.Day, "{0}")
g.Totals.AddDef("客户编号", AggregateEnum.Count, "电话次数")’‘。。。。。。。。。。。。。。能统计出结果的地方!
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 0
g.FromServer = True
g.Build()
Tables("销售代表分客户电话次数统计").AutoSizeCols() '设置自动列宽
Tables("销售代表分客户电话次数统计").OpenFilterTree("录入人|客户名称")
If User.Group <> "管理组" '管理组之外的人,看不到"销售代表分客户电话次数统计"
Tables("销售代表分客户电话次数统计").Visible = False
End If
MainTable = Tables("销售代表分客户电话次数统计")