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


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

主题:按时间统计数据报错,这是什么原因。

帅哥哟,离线,有人找我吗?
lg_yaolong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:230 积分:1955 威望:0 精华:0 注册:2019/1/16 21:25:00
按时间统计数据报错,这是什么原因。  发帖心情 Post By:2022/1/5 21:13:00 [显示全部帖子]

 


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
lg_yaolong
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:230 积分:1955 威望:0 精华:0 注册:2019/1/16 21:25:00
  发帖心情 Post By:2022/1/5 21:15:00 [显示全部帖子]

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

 

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

 回到顶部
帅哥哟,离线,有人找我吗?
lg_yaolong
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:230 积分:1955 威望: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 & ""


 回到顶部
帅哥哟,离线,有人找我吗?
lg_yaolong
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:230 积分:1955 威望:0 精华:0 注册:2019/1/16 21:25:00
  发帖心情 Post By:2022/1/7 16:45:00 [显示全部帖子]

感谢


 回到顶部