FoxPro中如何将表过滤数据存入临时游标且不破坏代码？

我做了一个方法，允许用户通过表单字段选择不同参数过滤表数据，用户的选择会被收集并动态维护在变量cTextSearch中。现在需要把过滤后的数据存入临时游标，方便程序其他部分（比如报表）调用，同时不能破坏现有代码。

目前尝试了几种方式都有问题：

• 用COPY TO语法看似可行，但会生成不需要的DBF物理文件；
• 用SELECT...INTO CURSOR...时，得到的是整张表而非过滤后的数据；
• 现有代码里用COPY TO导出过滤数据到CSV文件是正常的，但解决不了游标需求，要么游标异常，要么拿不到过滤后的数据。

现有核心代码片段：

IF !EMPTY(cTextSearch) AND !bResetFilter

nOldWA = SELECT(0)

SELECT (cAliasName)
GO TOP

cCommand = "SET FILTER TO "+ cTextSearch 
&cCommand

SELECT (cAliasName)

 &&COPY TO (cTempCursor) TYPE FOXPLUS
     
     COPY TO (cCsvFile) TYPE CSV
    
SELECT(nOldWA)

ThisForm.bFilterOn = .T.
ENDIF

方法1：基于现有SET FILTER生成临时游标 #

VFP中COPY TO支持直接将过滤后的数据复制到临时游标，不需要指定TYPE FOXPLUS（该参数是生成FoxPro 2.x格式的物理表），只需直接指定游标名称即可，不会生成物理文件。

修改后的代码（在原有CSV导出逻辑旁添加游标生成代码）：

IF !EMPTY(cTextSearch) AND !bResetFilter

nOldWA = SELECT(0)

SELECT (cAliasName)
GO TOP

cCommand = "SET FILTER TO "+ cTextSearch 
&cCommand

SELECT (cAliasName)

* 生成临时游标，不会创建物理DBF文件
COPY TO (cTempCursor)
* 保持原有CSV导出逻辑
COPY TO (cCsvFile) TYPE CSV
    
SELECT(nOldWA)

ThisForm.bFilterOn = .T.
ENDIF

说明：cTempCursor是你定义的临时游标名称（比如"tmpFilteredData"），执行后该游标会保留在内存中，可在其他部分直接调用。

方法2：直接用SELECT语句结合过滤条件生成游标（更高效） #

由于VFP的SELECT命令默认会忽略当前工作区的SET FILTER，所以可以直接把cTextSearch作为WHERE条件写入SELECT语句，跳过SET FILTER步骤，逻辑更清晰且高效，同时不破坏原有CSV导出逻辑：

IF !EMPTY(cTextSearch) AND !bResetFilter

nOldWA = SELECT(0)

* 直接用SELECT生成过滤后的临时游标
cSelectCmd = "SELECT * FROM "+ cAliasName +" WHERE "+ cTextSearch +" INTO CURSOR "+ cTempCursor +" READWRITE"
&cSelectCmd

* 保持原有CSV导出逻辑（若需基于游标导出，可切换到游标工作区再执行COPY TO）
SELECT (cAliasName)
COPY TO (cCsvFile) TYPE CSV
    
SELECT(nOldWA)

ThisForm.bFilterOn = .T.
ENDIF

说明：添加READWRITE参数可让游标支持修改操作，若仅用于报表展示，也可去掉该参数。

• 确保cTempCursor是唯一名称，避免和现有表/游标重名；
• 临时游标默认在关闭表单或退出工作区时自动释放，若需长期保留，可使用全局游标（前缀加_，比如_tmpFiltered）；
• 如果cTextSearch包含字符串条件，要确保引号转义正确（比如字段值含单引号时，需替换为两个单引号）。

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