以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]交叉统计代码,哪里写错了?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74356)

--  作者:2
--  发布时间:2015/9/9 12:14:00
--  [求助]交叉统计代码,哪里写错了?
Dim g As New SQLCrossTableBuilder("统计表1", "加油明细表")
g.HGroups.AddDef("车型")
g.HGroups.AddDef("牌照号")
g.VGroups.AddExp("年","Year(iif(Day(日期)> 25,DateAdd(\'d\',6,日期),日期))")
g.VGroups.AddExp("月","Month(iif(Day(日期)> 25,DateAdd(\'d\',6,日期),日期))")
g.Totals.AddDef("数量", "数量")
g.Build()
MainTable = Tables("统计表1")

--  作者:大红袍
--  发布时间:2015/9/9 14:36:00
--  

access数据库,还是sqlserver数据库。

 

sqlserver这样写

 

Dim g As New SQLCrossTableBuilder("统计表1", "加油明细表")
g.HGroups.AddDef("车型")
g.HGroups.AddDef("牌照号")
g.VGroups.AddExp("年","Year(case when Day(日期)> 25 then DateAdd(d,6,日期) else 日期 end)")
g.VGroups.AddExp("月","Month(case when Day(日期)> 25 then DateAdd(d,6,日期) else 日期 end)")
g.Totals.AddDef("数量", "数量")
g.Build()
MainTable = Tables("统计表1")

 


--  作者:2
--  发布时间:2015/9/9 14:52:00
--  
access数据库,提示SQL语句错误


Dim g As New SQLCrossTableBuilder("统计表1", "加油明细表")
g.ConnectionName=mydb
g.HGroups.AddDef("车型")
g.HGroups.AddDef("牌照号")
g.VGroups.AddExp("年","Year(iif(Day(日期)> 25,DateAdd(\'d\',6,日期),日期))")
g.VGroups.AddExp("月","Month(iif(Day(日期)> 25,DateAdd(\'d\',6,日期),日期))")
g.Totals.AddDef("数量", "数量")
g.Build()
MainTable = Tables("统计表1")



[此贴子已经被作者于2015/9/9 14:53:32编辑过]

--  作者:大红袍
--  发布时间:2015/9/9 15:07:00
--  

呃,代码没错,看一下你的mydb是否正确,以及列名是否正确。