按月求和后再两列相除。。。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

VIP客单价=VIP销售额/VIP销售笔数（即：购买的人数）

如下按月统计时，VIP客单价就把每天每个人都加起来了，而不是月VIP销售额/月VIP购买人数

这样数据就不准了。。。。

不知道有什么办法没。。。。

Tables("经营成果分析_经营成果分析").Fill("Select 购买日期 As 日期, 门市专柜编号, SUM(实收金额) As VIP销售额,COUNT(DISTINCT VIP卡号) As VIP销售笔数,SUM(实收金额)/COUNT(DISTINCT VIP卡号) As VIP客单价" _

& " FROM (dbo.VIP消费信息" _

& " GROUP BY 购买日期, 门市专柜编号", "VIP数据", True)

Dim g As New GroupTableBuilder("统计表2", Tables("经营成果分析_经营成果分析").DataTable)

g.Groups.AddDef("日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("日期", "月")

g.Groups.AddDef("门市专柜编号")

g.Totals.AddDef("VIP销售额")

g.Totals.AddDef("VIP销售笔数")

g.Totals.AddDef("VIP客单价") 这样按月统计时，VIP客单价就把每天每个人都加起来了，而不是月VIP销售额/月VIP购买人数

Tables("经营成果分析_经营成果分析").DataSource = g.BuildDataSource()

这样改一下

Tables("经营成果分析_经营成果分析").Fill("Select 购买日期 As 日期, 门市专柜编号, SUM(实收金额) As VIP销售额,COUNT(DISTINCT VIP卡号) As VIP销售笔数,SUM(实收金额)/COUNT(DISTINCT VIP卡号) As VIP客单价" _
& " FROM (dbo.VIP消费信息" _
& " GROUP BY 购买日期, 门市专柜编号", "VIP数据", True)

Dim g As New GroupTableBuilder("统计表2", Tables("经营成果分析_经营成果分析").DataTable)
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("门市专柜编号")
g.Totals.AddDef("VIP销售额")
g.Totals.AddDef("VIP销售笔数")

Tables("经营成果分析_经营成果分析").DataSource = g.BuildDataSource()

Tables("经营成果分析_经营成果分析").DataTable.DataCols.Add("VIP客单价", Gettype(Double), "VIP销售额 / VIP销售笔数")

哦哦。哈哈。看来我的基础还是不够。要灵活运用。谢谢甜老师！！！

主题：按月求和后再两列相除。。。