- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何按年份统计数据生成交叉表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108758)
-- 发布时间：2017/10/28 15:47:00
-- [求助]如何按年份统计数据生成交叉表
我定义了一个变量 intYear，如果intYear=2017，那么统计出2017年所有的数据生成交叉表
我是想不加载全部数据进来，直接在后台进行统计，只把结果显示出来。
请老师指教下怎么改？
下面是我生成的代码，但是不知道怎么根据intYear变量设置条件统计
Dim g As New CrossTableBuilder("统计表1", DataTables("AccountVouchersDetails"))
g.HGroups.AddDef("Account")
g.VGroups.AddDef("BillType")
g.Totals.AddDef("Money", "Money")
g.Decimals = 2
g.Build()
MainTable = Tables("统计表1")
下图是数据结构
此主题相关图片如下：10.png
-- 发布时间：2017/10/28 15:53:00
--
参考：http://www.foxtable.com/webhelp/scr/2720.htm
Dim g As New CrossTableBuilder("统计表1", DataTables("AccountVouchersDetails"))
g.HGroups.AddDef("Account")
g.VGroups.AddDef("BillType")
g.Totals.AddDef("Money", "Money")
g.Decimals = 2
Dim y As Integer = 2017 \'指定年份
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
g.Filter = Filter
……
-- 发布时间：2017/10/28 16:29:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
OK，谢谢
[此贴子已经被作者于2017/10/28 16:30:07编辑过]