以文本方式查看主题

-  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版主无私的帮助.