以文本方式查看主题 - 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 -- 有点蓝:请看这个
|
|
-- 作者:y2287958 -- 发布时间:2018/9/22 16:58:00 -- 别藏着掖着了,上例子吧 |
|
-- 作者:有点蓝 -- 发布时间:2018/9/22 17:02:00 -- 6楼代码没有问题,确定你的列名是正确的。 请上传实例看看
|