如何查询每人的相同字段值的问题?
xm d14a d14p d15a d15p张三 2 2 3 0
李四 4 4 5 2
如上,请教如何统计每一人的2,3,4,5出现几次
[ 本帖最后由 ffzsw 于 2015-9-21 14:25 编辑 ]
程序代码:CREATE CURSOR 原表 (xm C(10), d14a I, d14p I, d15a I, d15p I)
INSERT INTO 原表 VALUES ("张三", 2, 2, 3, 0)
INSERT INTO 原表 VALUES ("李四", 4, 4, 5, 2)
INSERT INTO 原表 VALUES ("张三", 2, 2, 3, 0)
INSERT INTO 原表 VALUES ("李四", 4, 4, 5, 2)
CREATE CURSOR 统计表 (xm C(10), t2 I, t3 I, t4 I, t5 I)
INDEX ON xm TAG xm
DIMENSION att[5]
SELECT 原表
SET RELATION TO xm INTO "统计表"
SCAN
IF !FOUND("统计表")
APPEND BLANK IN "统计表"
REPLACE xm WITH 原表.xm IN "统计表"
ENDIF
att = 0
FOR i = 2 TO 5
ati = EVALUATE(FIELD(i, "原表"))
IF BETWEEN(ati, 2, 5)
att[ati] = att[ati] + 1
ENDIF
ENDFOR
REPLACE t2 WITH t2 + att[2],;
t3 WITH t3 + att[3],;
t4 WITH t4 + att[4],;
t5 WITH t5 + att[5] IN "统计表"
ENDSCAN
SELECT 统计表
BROWSE