8-6.txt

来自「超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲」· 文本 代码 · 共 11 行

【例8.6】建立程序EXAM8-6.PRG，功能是显示学生表的所有字段名。
* 功能说明：FOR…ENDFOR循环结构举例
SET TALK OFF
OPEN DATABASE "C:\VISUAL FOXPRO 项目\学生学籍管理系统\学籍管理数据库.dbc"
USE xsqk.dbf       &&打开表，此时当前记录号为1
FOR nCnt =1 TO FCOUNT()           &&循环次数与表中的字段数一致
   ?FIELD(nCnt)                    &&显示第nCnt个字段的字段名称
ENDFOR
USE
SET TALK ON