有F1、F2、F3、F4、F5、F6共六组数据，分别判断这六组数据中的奇偶性并统计个数，显示在F7列中。
如：
F1 F2 F3 F4 F5 F6   F7
12 11 15 44 23 13   4:2




求这个程序，请指教，谢谢！

[此贴子已经被作者于2016-10-24 22:38编辑过]

楼主是在研究彩票？

CREATE CURSOR TT (F1 N(2),F2 N(2),F3 N(2),F4 N(2),F5 N(2),F6 N(2),F7 C(3))
INSERT INTO TT VALUES (12,11,15,44,23,13,"")
SCAN
    STORE 0 TO 单,双
    FOR I=1 TO 6
        IF EVALUATE(FIELD(I))%2=0
            双=双+1
        ELSE
            单=单+1
        ENDIF
    ENDFOR
    REPLACE F7 WITH TRANSFORM(单)+":"+TRANSFORM(双)
ENDSCAN
BROWSE

如果数据量大，这样可能会快点。

CREATE CURSOR TT (F1 N(2),F2 N(2),F3 N(2),F4 N(2),F5 N(2),F6 N(2),F7 C(3))
INSERT INTO TT VALUES (12,11,15,44,23,13,"")
REPLACE F7 WITH ff(F1, F2, F3, F4, F5, F6) ALL 
BROWSE

FUNCTION ff(F1, F2, F3, F4, F5, F6)
    ret = BITAND(F1,1)+BITAND(F2,1)+BITAND(F3,1)+BITAND(F4,1)+BITAND(F5,1)+BITAND(F6,1)
    RETURN TRANSFORM(ret)+":"+TRANSFORM(6-ret)
ENDFUNC

学习了，BITAND函数还可以判断奇偶数

ret = BITAND(F1,1)+BITAND(F2,1)+BITAND(F3,1)+BITAND(F4,1)+BITAND(F5,1)+BITAND(F6,1)
改为试试
ret = F1 % 2 + F2 % 2 + F3 % 2 + F4 % 2 + F5 % 2 + F6 % 2