FoxPro循环游标导出数据问题：无法按phoneNo生成独立文件

问题根源 #

之前的代码未做逐条循环处理，且路径拼接时未正确使用动态变量语法，导致要么报错“Name is not an object”，要么仅生成单个文件。

前置准备：先拉取SQL Server数据到本地游标 #

为避免远程表循环效率问题，先将Patients表数据导入本地游标：

* 假设lnConnHandle是已建立的SQL Server连接句柄
SQLEXEC(lnConnHandle, "SELECT * FROM Patients", "curPatients")
USE curPatients
GO TOP

方案1：导出为单条记录的Excel文件 #

通过SCAN循环逐条处理，每次仅导出当前记录，同时处理文件名合法性：

* 提前创建目标目录（替换为你的实际路径）
lcExportPath = "D:\PatientExcelFiles\"
IF NOT DIRECTORY(lcExportPath)
    MD (lcExportPath)
ENDIF

SCAN
    * 处理phoneNo为空或含非法字符的情况，避免生成无效文件名
    IF EMPTY(phoneNo) OR VARTYPE(phoneNo) != "C"
        lcFileName = "Unknown_" + TRANSFORM(Id) + ".xls"
    ELSE
        * 替换文件名中的非法字符（斜杠、冒号等）
        lcFileName = STRTRAN(phoneNo, "\", "_")
        lcFileName = STRTRAN(lcFileName, "/", "_")
        lcFileName = STRTRAN(lcFileName, ":", "_")
        lcFileName = lcFileName + ".xls"
    ENDIF
    lcFullPath = lcExportPath + lcFileName

    * 将当前记录存入临时游标，再导出为Excel
    SELECT * FROM curPatients WHERE Id = curPatients.Id INTO CURSOR curSingle NOFILTER
    COPY TO (lcFullPath) TYPE XLS

    USE IN curSingle  * 清理临时游标
ENDSCAN

关键：路径必须用括号(lcFullPath)包裹，否则FoxPro会把变量名当成对象名，触发“Name is not an object”错误。

方案2：导出为单条记录的PDF文件 #

需提前设计好报表（如PatientReport.frx），确保报表仅显示当前记录，再循环生成独立PDF：

* 提前创建PDF目标目录
lcPDFPath = "D:\PatientPDFFiles\"
IF NOT DIRECTORY(lcPDFPath)
    MD (lcPDFPath)
ENDIF

SCAN
    * 同Excel的文件名处理逻辑
    IF EMPTY(phoneNo) OR VARTYPE(phoneNo) != "C"
        lcFileName = "Unknown_" + TRANSFORM(Id) + ".pdf"
    ELSE
        lcFileName = STRTRAN(phoneNo, "\", "_")
        lcFileName = STRTRAN(lcFileName, "/", "_")
        lcFileName = STRTRAN(lcFileName, ":", "_")
        lcFileName = lcFileName + ".pdf"
    ENDIF
    lcFullPath = lcPDFPath + lcFileName

    * 输出当前记录为PDF
    REPORT FORM PatientReport.frx TO FILE (lcFullPath) AS PDF NOCONSOLE NORESET
ENDSCAN

关键：NORESET参数避免重置报表环境，确保每条记录都能正确生成对应PDF。

注意事项 #

• 确保目标路径存在，否则会触发文件写入错误
• 若phoneNo是数值型，需用TRANSFORM(phoneNo)转换为字符串后再生成文件名
• 批量处理时可添加进度提示：WAIT WINDOW "处理第" + TRANSFORM(RECNO()) + "/" + TRANSFORM(RECCOUNT()) + "条记录" NOWAIT

内容的提问来源于stack exchange，提问作者Joe