每隔一小时生成一个从0到9的随机数码stochastic，用一组数来对比，如3、6、7、8、9，出现了做标记，这个简单好办。问题是如何用BJ2那样标记出没出现次数？（上千条记录已经生成，怎么能用程序语句再标记出来？）
xh   time       stochastic  sign   BJ1   BJ2    备用字段
1    16:00:00       7        T     
2    15:00:00       2               0     2
3    14:00:00       5               0     1
4    13:00:00       3        T
5    12:00:00       6        T
6    11:00:00       5               0     3
7    10:00:00       1               0     2
8    09:00:00       4               0     1
9    08:00:00       8        T  
10   07:00:00       3        T
11   06:00:00       8        T
12   05:00:00       9        T
13   04:00:00       5               0     3
14   03:00:00       1               0     2
15   02:00:00       4               0     1
.
.
23245  01:00:00     5               0     1

upda 表 set 备用字段="T" where BJ2=3 or BJ2=6 or BJ2=7 or BJ2=8 or BJ2=9

Bj2是要达到的效果。

很难啊？

沒看懂你BJ2那個數是怎麼來的，什麼叫“沒出現次數”？

随机数和3,6,7,8,9对比，9点的时候，第一次不符合对比数，10点第二次不符合对比数，11点第三次不符合对比数。

CLEAR ALL
CLOSE DATABASES ALL
SET SAFETY OFF
USE atsnow EXCLUSIVE IN 0
INDEX ON atsnow.Time TO atsnow
Do_Statistics("36789")
SELECT atsnow
BROWSE
USE IN atsnow
CLOSE DATABASES ALL
CLEAR ALL
RETURN 

PROCEDURE Do_Statistics(tcCompare)
    LOCAL lnCounter
   
    SELECT atsnow
    lnCounter = 0
    SCAN ALL
        REPLACE atsnow.Sign WITH AT(atsnow.Stochastic, tcCompare) > 0
        lnCounter = IIF(atsnow.Sign, 0, lnCounter + 1)
        REPLACE atsnow.BJ2 WITH lnCounter
    ENDSCAN
   
ENDPROC 

谢谢你！
提示：方法程序或事件不能含有嵌套的过程或类定义！
有点复杂了，sign的数据已经完善，只需根据sign或bj1 来标出bj2就可以了。

[ 本帖最后由 atsnow 于 2012-1-30 14:34 编辑 ]

做法已經給了你，怎麼用得上，看你悟性了，不幫扶上馬。

版主感谢!