Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计本年报错


  共有2885人关注过本帖树形打印复制链接

主题：统计本年报错
帅哥哟，离线，有人找我吗？
lgz518
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		统计本年报错  发帖心情 Post By：2020/5/15 14:57:00 [只看该作者]

'按客户年度统计:
Dim b As New CrossTableBuilder("统计表1",DataTables("订单登记明细"))
b.HGroups.AddDef("客户名称") 
'b.VGroups.AddDef("交货日期",DateGroupEnum.Year,"{0}年") 
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
'Dim Filter As String
'Filter = "交货日期 >= #" & dt1 & "# And 交货日期 <= #" & dt2 & "#"
b.VGroups.AddDef("交货日期 >= #" & dt1 & "# And 交货日期 <= #" & dt2 & "#","{0}月") 


'b.VGroups.AddDef("交货日期","{0}月") 
b.Totals.AddDef("数量") 
b.VerticalTotal= True 
b.HorizontalTotal = True 
'b.Build 
'MainTable = Tables("统计表1")
Tables("订单登记汇总_Table3").DataSource = b.BuildDataSource() 

老师，上代码是注掉是按年统计统计，有跨年度统计，需求只想统计本年1-12月 的每个月数据，没注，报错

 1.如何实现只想统计本年1-12月 的每个月数据？
2.按年统计统计，有跨年度统计，但统计最近三年的每月数据，是怎么实现？谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2020/5/15 14:58:00 [只看该作者]

老师，上代码是注掉是按年统计统计，有跨年度统计，需求只想统计本年1-12月 的每个月数据，没注，报错

 1.如何实现只想统计本年1-12月 的每个月数据？
2.按年统计统计，有跨年度统计，但统计最近三年的每月数据，是怎么实现？谢谢
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/15 15:14:00 [只看该作者]

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("数量") 
b.VerticalTotal= True 
b.HorizontalTotal = True 
Tables("订单登记汇总_Table3").DataSource = b.BuildDataSource() 
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2020/5/15 17:02:00 [只看该作者]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
     Tables("订单登记汇总_Table3 ").SaveExcel(dlg.FileName, "订单登记汇总_Table3")  '保存文件
End If

统计结果和图表导示Excel文件，报错
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/15 17:09:00 [只看该作者]

报什么错？

 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2020/5/15 19:35:00 [只看该作者]

找不到“订单登记汇总_Table3 ”，因为统计是用临时表，不是正表

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/16 8:34:00 [只看该作者]

1、确定窗口名和表控件名称是正确的
2、确定窗口已经打开
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2020/5/16 11:11:00 [只看该作者]

确定窗口名和表控件名称是正确的
2、确定窗口已经打开

此主题相关图片如下：临时表导出问题.jpg
按此在新窗口浏览图片


原来Table3名称，想是不是没改名“订单登记汇总_Table3”一样报错，而且统计不统计不了，又改Table3，统计正常，导出就是报错图
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/16 11:37:00 [只看该作者]

上传实例说明

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询