以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7760)
|
-- 作者:sophia
-- 发布时间:2010/8/2 22:41:00
-- 统计
想统计当前表" 受理时间"字段中当日的记录个数.例如:当前系统日期是2010-7-20,统计结果为:2;当前系统日期是2010-08-02,统计结果为5,用代码怎么实现? 此主题相关图片如下:5555.jpg
|
-- 作者:e-png
-- 发布时间:2010/8/2 22:59:00
--
Dim n As Integer n = CurrentTable.Compute("count(受理时间)", "受理时间 = \'" & CurrentTable.current("受理时间") & "\'") output.show(n)
[此贴子已经被作者于2010-8-2 22:59:17编辑过]
|
-- 作者:sophia
-- 发布时间:2010/8/2 23:09:00
--
以下是引用e-png在2010-8-2 22:59:00的发言:Dim n As Integer n = CurrentTable.Compute("count(受理时间)", "受理时间 = \'" & CurrentTable.current("受理时间") & "\'") output.show(n)
[此贴子已经被作者于2010-8-2 22:59:17编辑过]
这样统计的结果是0,我想把当天产生的记录即时统计出来.例如:2010-08-02 17:44这条记录是今天产生的,就统计当日的记录个数.
|
-- 作者:e-png
-- 发布时间:2010/8/2 23:37:00
--
增加一列:rq 字符型
For i As Integer = 0 To CurrentTable.count-1 CurrentTable(i,"rq") = Format(CurrentTable(i,"日期"), "yyyy-MM-dd") Next Dim n As Integer n = = CurrentTable.Compute("count(rq)", "[rq] = \'" & CurrentTable(ii,"rq") & "\'") output.show(n)
|
-- 作者:sophia
-- 发布时间:2010/8/6 18:40:00
--
我的意思是这样:比如今天是2010-08-06,随着我今天一条条的业务受理,即时的把今天(2010-08-06)的记录统计出来(可在定时器里执行),而不是把整个表里每天的记录统计出来.明天来了以后,再即时的统计明天的记录数.
能做到即时统计当天的记录数即可.表里有一个"受理时间"字段,记录的是每条记录的当前时间.大家帮做下,谢谢了!
|
-- 作者:sophia
-- 发布时间:2010/8/6 19:17:00
--
Dim n As Integer n = Currenttable.Compute("count(受理时间)", "受理时间"字段的日期部分= Date.Today )
红色部分应该怎么写呢?
|
-- 作者:czy
-- 发布时间:2010/8/6 20:39:00
--
如果是统计当天,可以这样:
Dim n As Integer n = CurrentTable.Compute("count(受理时间)", "受理时间 >= #" & Date.Today & "#") Output.Show(n)
|
-- 作者:sophia
-- 发布时间:2010/8/6 20:56:00
--
谢谢CZY版主无私的帮助.
|