以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计次数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100747)
--  作者：yangyj
--  发布时间：2017/5/17 17:19:00
--  统计次数

 

 客户     产品    订货时间 
   甲    A    2015-1-1
   乙    A    2015-1-2
   丙    A    2015-1-3
   甲    A    2015-1-12
   乙    A    2015-1-13
   丙    A    2015-1-14
我现在要求甲客户在A产品15年1月份出现的次数，一个月出现多次算一次。应该怎么写代码。求大神指导！
--  作者：有点色
--  发布时间：2017/5/17 17:23:00
--  

 问过，不要重复

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=97283&skin=0

 
--  作者：yangyj
--  发布时间：2017/5/18 15:30:00
--  
不一样的，原来那个是按照出现的日期统计的，现在是统计月份，就是一个月出现了一次及以上，我都只算一次。
--  作者：有点色
--  发布时间：2017/5/18 16:50:00
--  
Dim dt As DataTable
Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名"
cmd.CommandText = "Select distinct 客户,year(订货时间) as 年,month(订货时间) as 月 from {表E}"
dt = cmd.ExecuteReader
Dim g As New CrossTableBuilder("统计表1", dt)
g.HGroups.AddDef("客户")
g.VGroups.AddDef("年")
g.VGroups.AddDef("月")
g.Totals.AddDef("客户", AggregateEnum.Count, "客户")
g.Build()
MainTable = Tables("统计表1")