按时间统计数据报错，这是什么原因。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按时间统计数据报错，这是什么原因。

共有2849人关注过本帖树形打印复制链接主题：按时间统计数据报错，这是什么原因。

lg_yaolong

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：230 积分：1949 威望：0 精华：0 注册：2019/1/16 21:25:00

按时间统计数据报错，这是什么原因。 发帖心情

Post By：2022/1/5 21:13:00 [只看该作者]

此主题相关图片如下：未命名.jpg

lg_yaolong

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：230 积分：1949 威望：0 精华：0 注册：2019/1/16 21:25:00

Post By：2022/1/5 21:15:00 [只看该作者]

进入2022年后，原统计数据不能正常显示，全部变为字符。

[此贴子已经被作者于2022/1/5 21:15:39编辑过]

程兴刚

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7237 积分：40614 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2022/1/5 21:50:00 [只看该作者]

发送您的源代码，估计是月份和日期数据颠倒了位置所致！

lg_yaolong

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：230 积分：1949 威望：0 精华：0 注册：2019/1/16 21:25:00

Post By：2022/1/6 17:51:00 [只看该作者]

Dim y1 As Integer = Date.Today.year
Dim m1 As Integer = Date.Today.month
Dim dt11 As New Date(y1, m1-1, 1)
Dim dt21 As New Date(y1, m1-1, Date.DaysInMonth(y1,m1-1))

Dim cnt70 As Integer = DataTables("燃油查询").Compute("sum(本次金额)","统计日期 >= #" & dt11 & "# and 统计日期 <= #" & dt21 & "#")
Dim lb70 As WinForm.Label
lb70 = e.Form.Controls("上月燃油费")
lb70.Text =""& "" & cnt70 & ""
''
Dim cnt71 As Integer = DataTables("出库").Compute("sum(备件_总价)","统计日期 >= #" & dt11 & "# and 统计日期 <= #" & dt21 & "#")
Dim lb71 As WinForm.Label
lb71 = e.Form.Controls("上月物资")
lb71.Text =""& "" & cnt71 & ""