现有日课总表文件rkzb20180920.dbf，我想复制到新表rkzb201809.dbf，rkzb201809.dbf中只含有“科学”一门学科（语文、数学、英语等学科为空），不知如何操作，望高手赐教，万分感谢！！！

你想 要的结果的表结构是啥

新表rkzb201809.dbf是什么样子的？

新表rkzb201809.dbf结构与rkzb20180920.dbf完全相同，rkzb201809.dbf只显示rkzb20180920.dbf中数据为“科学”的内容。

1、COPY　TO RKZB201809
2、USE RKZB201809
3、repl 语文 with '' all
……

这样符合吗？

select * from rkzb20180920 into table rkzb201809
for i = 3 to fcount()
    blank fields (field(i)) for alltrim(evaluate(field(i))) != "科学"
endfor
browse 

[此贴子已经被作者于2019-12-31 00:08编辑过]

@wengjl是这样的，但一门学科一门学科替换比较麻烦，有没有更好的方法？

SELECT * from rkzb20180920 INTO dbf rkzb201809
FOR i =1 TO 5
    FOR j=1 TO 6
        zdmc='zhou'+STR(i,1)+STR(j,1)
        REPLACE &zdmc. WITH '' FOR  &zdmc.<>'科学'
    ENDFOR
ENDFOR

COPY FILE rkzb20180920.dbf TO rkzb201809.dbf
LOCAL I,J,X
USE rkzb201809.dbf IN 0
FOR I=1 TO 5
    FOR J=1 TO 6
        STOR "ZHOU"+STR(I,1,0)+STR(J,1,0) to X
        REPLACE ALL &X WITH "" FOR &X # "科学"
     ENDFOR
ENDFOR
BROWSE

我能想到的是：

1、得到一个结构相同的空表
sele * from RKZB20180920 where 1=2 into table rkzb201809

2、得到一个只有科学的表（含数据）
sele 科学 from rkzb20180920 into table ls$

3、追加到新表中
sele  rkzb201809
appe from ls$


如果要姓名等的信息的，在第2步中添加