用程序，在学生科目表中，把科目的最高成绩找出来，如下程序，实际运行时，如数据量较大，程序运行缓慢，甚至要达到1小时以上，请教大神，如何优化？
select 1
Shu = RECCOUNT()
for i = 1 to Shu   
   go i
   XH = alltrim(学号)
   KCID = alltrim(课程ID)
   RDCJ = -10


   select 2
   locate for alltrim(学号) == XH and alltrim(课程ID) == KCID
   
      do while found()
           if isblank(成绩成绩)
              RDCJ = Max(RDCJ,-1)
          else
              RDCJ = Max(RDCJ,成绩)         
          endif
         continue
      enddo
  
   select 1

   repl 认定成绩 with alltrim(STR(RDCJ))

endfor

VFP9

select 学号,课程ID,max(成绩) RDCJ from 表2 group by 学号,课程ID into cursor 单科最高
update a set a.认定成绩=transform(b.RDCJ)) FROM 表1 a,单科最高 b where a.学号=b.学号 and a.课程ID=b.课程ID
use in 单科最高

实际运行时，如数据量较大，程序运行缓慢，甚至要达到1小时以上
想问一下，多大数据量时会这样？

[此贴子已经被作者于2023-7-20 15:35编辑过]

上传相关数据看看

如果是海量数据，先整理数据， 去除学号、课程ID的前后空白， 不要因数据不规范增加查询时间， 然后学号，课程ID建索引

程序运行1小时以上？共计多少条记录？
locate远不如用索引查找快，数据量大的时候效率提升的不是一点半点
试试2楼的SQL，我在145116条记录运行的时间是0.13秒

[此贴子已经被作者于2023-7-21 08:32编辑过]

学生表能有多少行，百万行数据查询也没这么慢啊，而且这个查询用一句连表查就可以实现