- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]在窗口中按日期统计出现问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24297)
-- 发布时间：2012/10/10 9:02:00
-- [求助]在窗口中按日期统计出现问题
在窗口中有个标签控件和一个table控件(绑定到"在制品查询"),想在标签中根据显示对"在制品查询"的统计结果，
此主题相关图片如下：查询.jpg
代码是：
Dim zzs As Double = DataTables("在制品查询").Compute("Sum(支数)")
Dim DB As Double = DataTables("在制品查询").Compute("Sum(支数)","版长 >= \'600\'")
Dim dtlh As Double = DataTables("在制品查询").Compute("Sum(支数)","接稿日期 = #" & Date.Today & "# ")
e.Form.Controls("Label1").text ="当前在制品: "& Cstr(zzs) &" 支,其中:大版 "& Cstr(db) &" 支,小版 "& Cstr(zzs)-Cstr(db) &" 支,当天来活:"& Cstr(dtlh) &" 支"
可是运行后“当天来活”却没有结果(结果总是0)，这是为什么？是不是："接稿日期 = #" & Date.Today & "# "有问题
-- 发布时间：2012/10/10 12:02:00
--
代码没有错，可能是楼主你的电脑日期和时间错了。设置一下。
-- 发布时间：2012/10/10 12:07:00
--
我的电脑日期和时间对着呀，是不是和“接稿时间”列的属性有关系？我设置的是datelongtime
-- 发布时间：2012/10/10 14:10:00
--
如果是datelongtime类型的话，就用这句吧
Dim dtlh As Double = DataTables("在制品查询").Compute("Sum(支数)","接稿日期 like \'" & Date.Today & "%\'")
-- 发布时间：2012/10/13 9:14:00
--
如果是datelongtime类型的话，就用这句吧
Dim dtlh As Double = DataTables("在制品查询").Compute("Sum(支数)","接稿日期 like \'" & Date.Today & "%\'")
不行呀，改了以后直接报错
此主题相关图片如下：报错.jpg
-- 发布时间：2012/10/13 9:21:00
--
应该是你的筛选表达式写错了。你贴出代码来看看。
-- 发布时间：2012/10/13 9:26:00
--
这是修改后的代码：
Dim zzs As Double = DataTables("在制品查询").Compute("Sum(支数)")
Dim DB As Double = DataTables("在制品查询").Compute("Sum(支数)","版长 >= \'600\'")
Dim dtlh As Double = DataTables("在制品查询").Compute("Sum(支数)","接稿日期 like \'" & Date.Today & "%\'")
e.Form.Controls("Label1").text ="当前在制品: "& Cstr(zzs) &" 支,其中:大版 "& Cstr(db) &" 支,小版 "& Cstr(zzs)-Cstr(db) &" 支,当天来活:"& Cstr(dtlh) &" 支"
-- 发布时间：2012/10/13 10:11:00
--
代码应该没错。如果是使用Access数据源的话，就把%换成*
-- 发布时间：2012/10/13 12:03:00
--
代码应该没错。如果是使用Access数据源的话，就把%换成*
还是不行，谢谢你了，我再重新建个表试试
-- 发布时间：2012/10/13 14:07:00
--
搞定了，我在“=”前面加了个“>”，改成下面的代码就行了“
Dim dtlh As Double = DataTables("产品信息").Compute("Sum(支数)","接稿日期 >= #" & Date.Today & "#")