CREATE CURSOR 测试表 (项目1 Y)
INSERT INTO 测试表 VALUES (1)
INSERT INTO 测试表 VALUES (2)
INSERT INTO 测试表 VALUES (2)
INSERT INTO 测试表 VALUES (3)
INSERT INTO 测试表 VALUES (3)
INSERT INTO 测试表 VALUES (3)
INSERT INTO 测试表 VALUES (7)
INSERT INTO 测试表 VALUES (8)
INSERT INTO 测试表 VALUES (9)
INSERT INTO 测试表 VALUES (10)
INSERT INTO 测试表 VALUES (11)
INSERT INTO 测试表 VALUES (12)
INSERT INTO 测试表 VALUES (13)
INSERT INTO 测试表 VALUES (14)
INSERT INTO 测试表 VALUES (15)

需要的结果：1[2]+2[3]=3个重复了
数字2有两个，一个是正常输入，一个是重复输入；
数字3有三个，一个是正常输入，两个是重复输入

算了用count

ln重复评=0
For j=15 To 1 Step -1
    Count For 评委9=j To ln重复数
    If ln重复数>1
        ln重复评=ln重复评+(ln重复数-1)
    ELSE
        ln重复评=ln重复评
    Endif
Endfor
?ln重复评

不知有什么更好的方法？

CREATE CURSOR 测试表 (项目1 Y)
INSERT INTO 测试表 VALUES (1)
INSERT INTO 测试表 VALUES (2)
INSERT INTO 测试表 VALUES (2)
INSERT INTO 测试表 VALUES (3)
INSERT INTO 测试表 VALUES (3)
INSERT INTO 测试表 VALUES (3)
INSERT INTO 测试表 VALUES (7)
INSERT INTO 测试表 VALUES (8)
INSERT INTO 测试表 VALUES (9)
INSERT INTO 测试表 VALUES (10)
INSERT INTO 测试表 VALUES (11)
INSERT INTO 测试表 VALUES (12)
INSERT INTO 测试表 VALUES (13)
INSERT INTO 测试表 VALUES (14)
INSERT INTO 测试表 VALUES (15)
SELECT SUM(个数)  as 总数 FROM (SELECT COUNT(项目1)- 1 as 个数 ,项目1 FROM 测试表  GROUP BY 项目1 HAVING COUNT(1) - 1 > 0 ) T1

SELECT 项目1, COUNT(*) sz FROM 测试表 GROUP BY 项目1 HAVING COUNT(*) > 1

谢谢版主

我之前也是用这个，但不能准确达到目的

只是要重复多出来的数3，直接用 有重复的记录数 - 无重复的记录数 = 3
SELECT DISTINCT 项目1 FROM 测试表 INTO CURSOR tmp
? RECCOUNT("测试表")-RECCOUNT("tmp")

换个思路