Dim nf As Integer = Date.Today.Year
Dim yf As Integer = Date.Today.Month
Dim d1 As new Date(nf,yf, 1)
Dim d2 As New Date(nf,yf, Date.DaysInMonth(nf,yf)) \'获取该月的最后一天
Tables("融资合同附表").Filter = "还款时间 >= #" & d1 & "# And 还款时间 <= #" & d2 & "#"
Dim g As New CrossTableBuilder("统计表1", DataTables("融资合同附表"))
g.Caption = "本月还款计划表"
g.HGroups.AddDef("备案单位")
g.HGroups.AddDef("借款单位")
g.HGroups.AddDef("备案编号")
g.VGroups.AddDef("还款时间", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("还款时间", "{0}月份还款金额")
g.VGroups.AddDef("还款时间", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("还款金额", "还款金额")
g.Decimals = 2
g.Build()

Tables("融资组合查询_Table1").DataSource = g.BuildDataSource()

求教：在窗口中要实现统计，上述代码没错，但统计的不是筛选出的数据而是全部数据。

       在系统菜单下是一致的。