如图：今日错题.dbf

想用代码统计每个单词错误的次数，求解答(效果如图)

select.....from.......into......group by.........?

&&用DO WHILE,试试下面代码：
CLOSE DATABASES
USE 今日错题.dbf ALIAS lcdbfb
IF FSIZE("错误次数")=0
ALTER table lcdbfb ADD  错误次数 c(2)
ENDIF
select 单词,count(单词) as cnts from lcdbfb GROUP BY 单词 INTO CURSOR lsybb
SELECT MAX(cnts) FROM lsybb INTO CURSOR lscsb
lccs=MAX_cnts
*?lccs
SELECT lcdbfb
S=0
DO while S<lccs
FOR I=1 TO RECCOUNT()
    GO I
    IF DELETE()
       LOOP
    ELSE
       OLDRECN=I
       单词1=ALLTRIM(单词)      
    ENDIF
    LOCATE REST FOR ALLTRIM(单词)==单词1
    NJS=0
    DO WHILE FOUND()
       NJS=NJS+1
       IF NJS>S  
  REPLACE 错误次数 WITH ALLTRIM(STR(NJS))
              ENDIF
       CONTINUE      
    ENDDO
    I=OLDRECN   
ENDFOR
S=S+1
ENDDO
CLOSE DATABASES
SELECT * FROM 今日错题.dbf INTO CURSOR lstj READWRITE
ALTER table lstj ADD  id c(2)
REPLACE ALL id WITH ALLTRIM(STR(RECNO()))
DELETE FROM lstj WHERE lstj.id NOT IN ( SELECT m2.mid  FROM (  SELECT 单词,max(id) AS mid FROM lstj   GROUP BY 单词 ) AS m2)
PACK
ALTER TABLE lstj DROP COLUMN id
COPY TO cctj
USE cctj
BROWSE  LAST
CLOSE ALL
QUIT

[此贴子已经被作者于2018-8-18 14:51编辑过]

或者用SCAN也行，试试下面代码：
CLOSE DATABASES
USE 今日错题.dbf ALIAS lcdbfb
IF FSIZE("错误次数")=0
ALTER table lcdbfb ADD  错误次数 c(2)
ENDIF
SELECT 单词,000 错误次数 FROM lcdbfb INTO CURSOR lsybb READWRITE
 INDEX ON 单词 TO 单词
 N=1
 CXM=""
 SCAN
     IF allt(单词)==CXM
         N=N+1
     ELSE
         N=1
     ENDIF
     REPLACE 错误次数 WITH N
     CXM=allt(单词)
 ENDSCAN
CLOSE DATABASES
SELECT * FROM 今日错题.dbf INTO CURSOR lstj READWRITE
ALTER table lstj ADD  id c(2)
REPLACE ALL id WITH ALLTRIM(STR(RECNO()))
DELETE FROM lstj WHERE lstj.id NOT IN ( SELECT m2.mid  FROM (  SELECT 单词,max(id) AS mid FROM lstj   GROUP BY 单词 ) AS m2)
PACK
ALTER TABLE lstj DROP COLUMN id
SELECT * FROM lstj
CLOSE ALL
QUIT

[此贴子已经被作者于2018-8-18 17:56编辑过]

谢谢大神回答，不过这代码统计结果好像有问题

你把数据发过来，再试试
CLOSE DATABASES
USE 今日错题.dbf ALIAS lcdbfb
IF FSIZE("错误次数")=0
ALTER table lcdbfb ADD  错误次数 c(2)
ENDIF
SELECT 单词,COUNT(单词) as 错误次数 FROM 今日错题.dbf GROUP BY 单词  INTO TABLE &ldtj
sele * from &ldtj

[此贴子已经被作者于2018-8-18 19:42编辑过]