以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125220)

--  作者:王大刚
--  发布时间:2018/9/22 16:29:00
--  统计问题
统计表可以在窗口中显示,条件是有起止日期,如:2018-09-01,到2018-09-30,下次再统计别的时间段,又要修改,如附件形式的,我用了一段代码,无法实现,请大师指正修改。

Dim g As New CrossTableBuilder("月销售统计", DataTables("进销存表"))

g.Caption = "月销售统计(汇总)"

g.HGroups.AddDef("渠道")

g.VGroups.AddDef("类型")

g.Totals.AddDef("类型", AggregateEnum.Count, "数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Filter = "[开票时间]>=# Datp1.Value # AND [开票时间]<=# Datp2.Value # AND [业务员]  <> \'焦总\'"

Tables("报表窗口_Table1").DataSource = g.BuildDataSource()

[此贴子已经被作者于2018/9/22 16:34:01编辑过]

--  作者:有点蓝
--  发布时间:2018/9/22 16:32:00
--  
什么代码?
--  作者:王大刚
--  发布时间:2018/9/22 16:36:00
--  

Dim g As New CrossTableBuilder("月销售统计"DataTables("进销存表"))

g.Caption = "月销售统计(汇总)"

g.HGroups.AddDef("渠道")

g.VGroups.AddDef("类型")

g.Totals.AddDef("类型"AggregateEnum.Count"数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Filter = "[开票时间]>=# Datp1.Value # AND [开票时间]<=# Datp2.Value # AND [业务员]  <> \'焦总\'"

Tables("报表窗口_Table1").DataSource = g.BuildDataSource()

功能和疑问详看附件中。谢谢!!!!
[此贴子已经被作者于2018/9/22 16:40:25编辑过]

--  作者:有点蓝
--  发布时间:2018/9/22 16:42:00
--  
正确上传附件方法:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
--  作者:王大刚
--  发布时间:2018/9/22 16:45:00
--  
这种窗口统计很常用,请帮忙指正一下为谢!!!
[此贴子已经被作者于2018/9/22 16:49:22编辑过]

--  作者:y2287958
--  发布时间:2018/9/22 16:49:00
--  
g.Filter = "[开票时间]>=#" & Datp1.Value & "# AND [开票时间]<=#" & Datp2.Value & "# AND [业务员]  <> \'焦总\'"
--  作者:王大刚
--  发布时间:2018/9/22 16:54:00
--  
这个代码测试了,不行,提示,未声明名称。


--  作者:王大刚
--  发布时间:2018/9/22 16:57:00
--  有点蓝:请看这个
统计表可以在窗口中显示,条件是有起止日期,如:2018-09-01,到2018-09-30,下次再统计别的时间段,又要修改,如附件形式的,我用了一段代码,无法实现,请大师指正修改。

Dim g As New CrossTableBuilder("月销售统计"DataTables("进销存表"))

g.Caption = "月销售统计(汇总)"

g.HGroups.AddDef("渠道")

g.VGroups.AddDef("类型")

g.Totals.AddDef("类型"AggregateEnum.Count"数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Filter = "[开票时间]>=# Datp1.Value # AND [开票时间]<=# Datp2.Value # AND [业务员]  <> \'焦总\'"

Tables("报表窗口_Table1").DataSource = g.BuildDataSource()

功能和问题详见附件。谢谢!!

--  作者:y2287958
--  发布时间:2018/9/22 16:58:00
--  
别藏着掖着了,上例子吧
--  作者:有点蓝
--  发布时间:2018/9/22 17:02:00
--  
6楼代码没有问题,确定你的列名是正确的。

请上传实例看看