vfp中更新表中所有字段

文件:	vfp批量更新表.rar
大小:	2KB
下载:	下载

编程思路： 在两个表中进行查询，把一个表中的字段更新到另一个表中相同的字段中。

program thinking: from table b22 search segment ,if table b11 have the segment ,then b11.kc2=b22.kc2,until eof of b22

程序代码：

SELECT 1  && 选择工作区1
USE B11   && 使用表b11
replACE all kc2 with 0  && 把表b11中字段bc2全部用0替换
? "原来 B11表"   && print hint "原来 B11表"
?"------------------------------------------------"
LIST   && print table b11
GO TOP  && return the top of table "b11"
SELE 2  && select worksheet 2
USE B22 && use table b22
? "原来 B22表"
?"------------------------------------------------"
LIST
GO TOP
DO WHILE .NOT.EOF() && until eof of b22
  * XX=XM
   *FF=KC2
      SELE 1   && switch to b11
          *LOCATE FOR XM=XX
          locate for b11.xm=b22.xm
          * REPLACE KC2 WITH FF
          replace b11.kc2 with b22.kc2
      SELE 2  &&　switch to table b22
        SKIP 1  && move point to next
ENDDO

SELE 1
?
?
?"------------------------------------------------"

? "新的 B11表"
LIST

RETURN

 

错误解决：

错误： 不能加入这个表：它属于数据库e:\vfp\数据库1.dbc
解决： 在命令行窗口输入use 表名，在弹出的对话框中点删除即可！

具体例子在附近里面！