请教老师，Set Filter To筛选问题

1首先在表格中显示了全部记录，
2 用Set Filter To 条件，筛选了满足条件的记录，筛选的记录在表格中显示。
3 但将表格中的记录导出EXE时，并没有按条件导出，而是导出了全部记录。
如何将筛选的记录导出。不想修改 Set Filter To 条件语句，有什么办法？
请教各位大侠！

8 个解决方案

#1

COPY TO WHERE ...

#2

Select 表格的数据源
Copy To 导出后的Excel文件名 Type Xl5

#3

应该是你导出时当前表不是表格的数据源表。

#4

之前在表格中显示所有记录，后来用Set Filter To 条件筛选了记录
thisform.grid1.recordsourcetype=0
Set Filter To 条件
...
select * from (thisform.grid1.recordsource) into dbf newdbf
Copy to NEWDBF type xls
看起来挺简单，就是不能将筛选后的记录导出。导出的总是全部记录。不知是哪里毛病？

#5

把代码贴全一些，大家帮你看看

#6

select (thisform.grid1.recordsource)
Copy to NEWDBF type xls

#7

select * from (thisform.grid1.recordsource) into dbf newdbf
改为
select (thisform.grid1.recordsource)

另外：
thisform.grid1.recordsourcetype=0
改为
thisform.grid1.recordsourcetype=1

#8

谢谢，各位老师，我费了半天劲，把条件又都加进去了，程序很长，很麻烦。
6,7楼老师既简便又准确，真是还要看经验呀，佩服！！！

#1