USE d:\16\jsbfkh\DK\zkmoban.dbf                                            使用zkmoban.dbf
COPY all to d:\16\jsbfkh\DK\zcjk.dbf                                       复制所有内容到zcjk.dbf
COPY all to d:\16\jsbfkh\DK\01zcj.dbf                                      复制所有内容到01zcj.dbf
USE                                                                        ？？？

USE d:\16\jsbfkh\DK\01zcj.dbf                                              使用01zcj.dbf
APPEND FROM d:\16\jsbfkh\DK\zcj.dbf                                        将zcj.dbf中所有数据添加到01zcj.dbf中
use                                                                        ？？？
select 1                                                                   ？？？
use d:\16\jsbfkh\DK\zcjk.dbf                                               使用zcjk.dbf
DELETE ALL                                                                 全部内容标记为删除
pack                                                                       永久删除当前表中所有标记了删除标记的记录
APPEND FROM d:\16\jsbfkh\pkc\xmk.dbf                                       将xmk.dbf中所有数据添加到zcjk.dbf
repl all zcj with 0                                                        用0替换xmk.dbf中zcj列
index on kh to kh1                                                         ？？？
sele 2                                                                     ？？？
use d:\16\jsbfkh\DK\01zcj                                                  使用01zcj.dbf
index on kh to kh2                                                         ？？？
sele 1                                                                     ？？？
update on kh from B repl km01k with B->km01_zcj,km02k with B->km02_zcj,km03k with B->km03_zcj,km04k with B->km04_zcj,km05k with B->km05_zcj,km06k with B->km06_zcj,km07k with B->km07_zcj,km08k with B->km08_zcj,km09k with B->km09_zcj,km12k with b.km12_zcj     ？？？
BROWSE FIELDS kh,xm,km01k,km02k,km03k,km04k,km05k,km06k,km07k,km07k,km08k,km09k,km12k     打开“浏览”窗口，显示kh,xm……的记录
use                                                                        ？？？
sele 2                                                                     ？？？
USE                                                                        ？？？
RUN del d:\16\jsbfkh\DK\*.idx                                              ？？？
RETURN                                                                     返回程序控制权给调用程序
thisform.release                                                           ？？？         

[此贴子已经被作者于2018-2-23 17:19编辑过]

最好先看一下帮助文件

我把能看懂的在后面注解了，看不懂的打了问号。
求判断我注解的对错，求解释我不懂的。

可以参考VFP帮助
如：

2楼说得没错，只要看一下帮助文件就能理解了！

SE d:\16\jsbfkh\DK\zkmoban.dbf                                            使用zkmoban.dbf
COPY all to d:\16\jsbfkh\DK\zcjk.dbf                                       复制所有内容到zcjk.dbf
COPY all to d:\16\jsbfkh\DK\01zcj.dbf                                      复制所有内容到01zcj.dbf
USE                                                                        关闭当前工作区中打开的表文件

USE d:\16\jsbfkh\DK\01zcj.dbf                                              使用01zcj.dbf
APPEND FROM d:\16\jsbfkh\DK\zcj.dbf                                        将zcj.dbf中所有数据添加到01zcj.dbf中
use                                                                        关闭当前工作区中打开的表文件

select 1                                                                   选择第一个工作区

use d:\16\jsbfkh\DK\zcjk.dbf                                               使用zcjk.dbf
DELETE ALL                                                                 全部内容标记为删除
pack                                                                       永久删除当前表中所有标记了删除标记的记录
APPEND FROM d:\16\jsbfkh\pkc\xmk.dbf                                       将xmk.dbf中所有数据添加到zcjk.dbf
repl all zcj with 0                                                        用0替换xmk.dbf中zcj列
index on kh to kh1                                                         建立索引
sele 2                                                                     选择第二个工作区

use d:\16\jsbfkh\DK\01zcj                                                  使用01zcj.dbf
index on kh to kh2                                                         建立索引文件
sele 1                                                                     选择第一个工作区
update on kh from B repl km01k with B->km01_zcj,km02k with B->km02_zcj,km03k with B->km03_zcj,km04k with B->km04_zcj,km05k with B->km05_zcj,km06k with B->km06_zcj,km07k with B->km07_zcj,km08k with B->km08_zcj,km09k with B->km09_zcj,km12k with b.km12_zcj     更新表中相应的记录数据
BROWSE FIELDS kh,xm,km01k,km02k,km03k,km04k,km05k,km06k,km07k,km07k,km08k,km09k,km12k     打开“浏览”窗口，显示kh,xm……的记录
use                                                                        关闭当前工作区中打开的表文件

sele 2                                                                     选择第二个工作区

USE                                                                        关闭当前工作区中打开的表文件


RUN del d:\16\jsbfkh\DK\*.idx                                              使用外部命令删除索引文件

RETURN                                                                     返回程序控制权给调用程序
thisform.release                                                           刷新当前的表单

另外这段代码仅供参考，许多做法不值得借鉴，例如使用绝对地址、指定工作区等等。

这样的提问才贴合互动

楼主该从基本语法、子句、注释开始学习，或重温一下。

正如6楼所述，这段代码确实的糟糕蹩足以极，应亦为初学者作业。