以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计记录数失败  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184731)
--  作者：lgz518
--  发布时间：2022/12/27 11:50:00
--  统计记录数失败

图片点击可在新窗口打开查看此主题相关图片如下：统计记录数失败.jpg
图片点击可在新窗口打开查看
Dim b As New CrossTableBuilder("统计表1", DataTables("订单"))
b.HGroups.AddDef("客户") 
b.VGroups.AddDef("日期", DateGroupEnum.Month, "{0}月") 
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
b.Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"


b.Totals.AddDef("客户", AggregateEnum.Count, "份数")
b.VerticalTotal = True 
b.HorizontalTotal = True 
Tables("统计记录数_Table1").DataSource = b.BuildDataSource()
--  作者：有点蓝
--  发布时间：2022/12/27 12:04:00
--  
没有符合这个条件的数据：
b.Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"