不是代码少速度就快

lnRs = 0
SCAN
    lnRs = lnRs + 人数
    REPLACE 累计 WITH lnRs
ENDSCAN

[此贴子已经被作者于2021-2-7 18:28编辑过]

scan
   SUM 人数 TO a FOR RECNO()<=i && 此行运行后，记录指针移到文件尾了
   REPLACE 累计 WITH a FOR RECNO()=i
   LOCATE FOR RECNO()=i && 从头搜索符合条件的记录
   i=i+1
ENDSCAN
综上所述，代码运行速度变慢了

一般学校中数据处理的程序能做到秒杀就可以了

是的是的，谢谢谢谢

感谢老师的耐心指导。还有一个挺奇怪的问题，运行一个表格控件，第一次显示为空白，退出后第二次运行显示正常，或者第一次运行其他功能后再运行这个表格也正常，整理后给老师看看，

设置表格控件的数据源(RECORDSOUREC)及数据显示类型(RECORDSOURECTYPE)

我有一个表单，在init里：
IF !FILE(".\kwgl\zkzh9.dbf")
   MESSAGEBOX("考场编排尚未完成，文件zkzh9未生成，请退出后先运行程序‘考场编排新’。",0,"")
   thisform.release
endif
.......
不能关闭表单，

只能写一个prg:
IF !FILE(".\kwgl\zkzh9.dbf")
   MESSAGEBOX("考场编排尚未完成，文件zkzh9未生成，请退出后先运行程序‘考场编排新’。",0,"")
   return
ELSE
   DO FORM .\表单\准考证打印
endif
请老师教我，前面办法怎样实现？

可以不用这几行代码，当zkzh9.dbf生成后，再 DO FORM ..........