- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 按时间统计数据报错，这是什么原因。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174214)
-- 发布时间：2022/1/5 21:13:00
-- 按时间统计数据报错，这是什么原因。
此主题相关图片如下：未命名.jpg
-- 发布时间：2022/1/5 21:15:00
--
进入2022年后， 原统计数据不能正常显示，全部变为字符。
[此贴子已经被作者于2022/1/5 21:15:39编辑过]
-- 发布时间：2022/1/5 21:50:00
--
发送您的源代码，估计是月份和日期数据颠倒了位置所致！
-- 发布时间：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 & ""
-- 发布时间：2022/1/6 20:13:00
--
现在是1月，m1-1是0月了，火星历？
上个月1号应该这样
dim d as date = date.today.AddMonths(-1)
Dim y1 As Integer = d.year
Dim m1 As Integer = d.month
Dim m1 As Integer = d.month
Dim dt11 As New Date(y1, m1, 1)
-- 发布时间：2022/1/6 20:38:00
--
[此贴子已经被作者于2022/1/6 20:38:45编辑过]
-- 发布时间：2022/1/7 16:45:00
--
感谢