标题：统计

1楼

sophia 发表于：2010/8/2 22:41:00

想统计当前表" 受理时间"字段中当日的记录个数.例如:当前系统日期是2010-7-20,统计结果为:2;当前系统日期是2010-08-02,统计结果为5,用代码怎么实现?

此主题相关图片如下：5555.jpg

2楼

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编辑过]

3楼

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这条记录是今天产生的,就统计当日的记录个数.

4楼

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)

5楼

sophia 发表于：2010/8/6 18:40:00

我的意思是这样:比如今天是2010-08-06,随着我今天一条条的业务受理,即时的把今天(2010-08-06)的记录统计出来(可在定时器里执行),而不是把整个表里每天的记录统计出来.明天来了以后,再即时的统计明天的记录数.

能做到即时统计当天的记录数即可.表里有一个"受理时间"字段,记录的是每条记录的当前时间.大家帮做下,谢谢了!

6楼

sophia 发表于：2010/8/6 19:17:00

Dim n As Integer
n = Currenttable.Compute("count(受理时间)", "受理时间"字段的日期部分= Date.Today )

红色部分应该怎么写呢?

7楼

czy 发表于：2010/8/6 20:39:00

如果是统计当天，可以这样：

Dim n As Integer
n = CurrentTable.Compute("count(受理时间)", "受理时间 >= #" & Date.Today & "#")
Output.Show(n)

8楼

sophia 发表于：2010/8/6 20:56:00

谢谢CZY版主无私的帮助.

共8 条记录, 每页显示 10 条, 页签: [1]