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

这样改一下

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销售笔数")