VF下实现两个自由表（dbf)间数据替换

ilywj · 发表于 2012-4-16 17:21

VF下实现两个自由表（dbf)间数据替换

下面的程序是实现用表book1中的sz1字段替换book2中的zqsz字段，条件是book1.no1字段内容与book2.no11字段的内容相等，操作步骤如下：

   打开VF软件--新建——选择程序——在程序中写上如下代码：
CLOSE ALL // 注释:关闭所有表格
select 1
use book1// 注释:选择表book1，并起别名为1
scan
lid=book1.no1
l2=book1.sz1// 注释：扫描表book1的字段no1、sz1，并分别把其值赋给lid、l2
  select 2
  use book2// 注释:选择表book2，并起别名为2
REPLACE ALL book2.zqsz WITH book1.sz1  FOR no11=lid// 注释 :当book1.no1字段内容与book2.no11字段的内容相等实现用
book1.sz1的内容替换book2.zqsz 的内容

select 2
ENDSCAN// 注释：关闭扫描