各位老师:如何实现用A编号 更新B库编号 ?感谢帮助!!
各位老师:如何实现用A编号 更新B库编号 ?感谢帮助!!A:为基准库,B:为临时库。
B库同一姓名会出现多次,我想用A库的编号,更新B库的编号。 期待各位老师的帮助。



CLOSE DATABASES SELECT 0 USE A SELECT 0 USE B SCAN SELECT A LOCATE FOR A.姓名==B.姓名 IF FOUND() REPLACE B.编号 WITH A.编号 ENDIF SELECT B ENDSCAN
CREATE CURSOR a1 (序号 n(1), 姓名 c(10), 编号 n(1)) INSERT INTO a1 VALUES (1, "a1", 1) INSERT INTO a1 VALUES (2, "a2", 2) INSERT INTO a1 VALUES (3, "a3", 3) INSERT INTO a1 VALUES (4, "a4", 4) INSERT INTO a1 VALUES (5, "a5", 5) CREATE CURSOR b1 (序号 n(1), 姓名 c(10), 编号 n(1)) INSERT INTO b1 VALUES (1, "a5", 0) INSERT INTO b1 VALUES (2, "a2", 0) INSERT INTO b1 VALUES (3, "a2", 0) INSERT INTO b1 VALUES (4, "a2", 0) INSERT INTO b1 VALUES (5, "a4", 0) INSERT INTO b1 VALUES (6, "a4", 0) INSERT INTO b1 VALUES (7, "a1", 0) INSERT INTO b1 VALUES (8, "a1", 0) INDEX on 姓名 TAG xm SELECT a1 SET RELATION TO 姓名 INTO b1 && 姓名必须唯一 SET SKIP TO b1 REPLACE b1.编号 WITH a1.编号 ALL SET RELATION TO SET SKIP TO SELECT b1 SET ORDER TO BROWSE