CREATE CURSOR A表 (单位名称 C(10),月份 N(2),字段1 C(10),字段2 C(10))
INSERT INTO A表 VALUES ([a单位],1,[asd],[])
INSERT INTO A表 VALUES ([a单位],2,[wer],[])
INSERT INTO A表 VALUES ([b单位],1,[hfg],[])
INSERT INTO A表 VALUES ([c单位],1,[kkk],[])
CREATE CURSOR B表 (单位名称 C(10),月份 N(2),字段1 C(10))
INSERT INTO B表 VALUES ([a单位],1,[asd])
INSERT INTO B表 VALUES ([a单位],2,[wer])
INSERT INTO B表 VALUES ([b单位],1,[hfg])
**VFP6.0代码
SCAN
   UPDATE A表 SET 字段2=B表.字段1 WHERE ALLTRIM(A表.单位名称)+TRANSFORM(A表.月份)==ALLTRIM(B表.单位名称)+TRANSFORM(B表.月份)
ENDSCAN
SELECT A表
BROWSE
**VFP9.0代码
UPDATE A表 SET 字段2=B表.字段1 FROM B表 WHERE ALLTRIM(A表.单位名称)+TRANSFORM(A表.月份)==ALLTRIM(B表.单位名称)+TRANSFORM(B表.月份)
SELECT A表
BROWSE

将条件变更一下就行了

[ 本帖最后由 sdta 于 2013-4-16 11:04 编辑 ]

USE byhz IN 0 EXCLUSIVE
SELECT byhz.*,NVL(sdshz.sds,' ') sds FROM byhz byhz LEFT JOIN sdshz  ON  byhz.dwmc==sdshz.dwmc.and.byhz.yue==sdshz.yue INTO CURSOR TMP1
ZAP IN byhz
SELECT byhz
ZAP
APPEND FROM (DBF('TMP1'))

运行后sds字段为连接上去，不知哪有问题？

这是你byhz表也有sds字段，查询后就自动改名了
你还是列出每个字段吧,不要 byhz.* 这样

不知道你月份是数值型还是字符型，就先作为数值型吧：

USE B
INDEX ON ALLTRIM(单位名称)+ALLTRIM(STR(月份,2)) TAG 名称月份

SELECT 0
USE A
SET RELATION TO ALLTRIM(单位名称)+ALLTRIM(STR(月份,2)) INTO B
REPLACE ALL A.字段2 WITH B.字段1

RETURN

不知道你说的“数据不一定相同”是指哪方面。如果在单位名称+月份方面A表多于B表，且B表在关键字上的记录唯一，本段代码是没有问题的。不然，则只能用B表中第一条匹配记录的字段1去填充A表相应记录的字段2。不知道楼主有没看懂我这句话。

CREATE CURSOR A表 (单位名称 C(10),月份 N(2),字段1 C(10),字段2 C(10))
INSERT INTO A表 VALUES ([a单位],1,[asd],[])
INSERT INTO A表 VALUES ([a单位],2,[wer],[])
INSERT INTO A表 VALUES ([b单位],1,[hfg],[])
CREATE CURSOR B表 (单位名称 C(10),月份 N(2),字段1 C(10))
INSERT INTO B表 VALUES ([a单位],1,[asd])
INSERT INTO B表 VALUES ([a单位],2,[wer])
INSERT INTO B表 VALUES ([b单位],1,[hfg])
SELECT B表
FOR i=1 TO RECCOUNT()
GO i
qz1=字段1
   UPDATE A表 SET 字段2=qz1 WHERE 单位名称=B表.单位名称 AND 月份=B表.月份
ENDF
SELECT A表
BROWSE