统计不了图片！或者说，有内容与无内容，统计不出来。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好！统计不了图片！（一样的代码，一个能统计，一个不能统计！）

一、不能统计出结果的代码

'业务经理分日统计

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("销售代表分客户电话次数统计")

这个意思？

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.Filter = "拜访内容 is not null and 现场图片 is not null"
g2.Build()