谢谢TonyDeng老师。你说：要實現聯動，指定SET RELATION關聯，讓兩個表的記錄指針用A3匹配。
我在例题中用这样的语句：
....
INDEX ON A3 TAG A1
SELECT 0
USE L2
INDEX ON A3 TAG A1
SELECT L1
SET RELATION TO A3 INTO L2
...
是不是已经指定了关联，用A3匹配。
其实在上述例题中，我用 REPLACE ALL L1.A1 WITH L2.A2 FOR L1.A3=L2.A3 语句 代替 UPDATE L1 SET L1.A1=L2.A2 WHERE L1.A3=L2.A3   ，就能很好达到效果。说明指针作用、转移是正常的。

此外很抱歉，你的英文答复，我有点看不懂。我还是很感谢你。你的帖子对我帮助很大。

不加索引，运行后效果如何，因为UPDATE命令执行时，并不需要索引，我认为不稳定的原因和索引有关

谢谢sdta老师指导，按照你的思路，取消了L1、L2的索引 INDEX ON A3 TAG A1 ，程序得到预期的效果。看来如你所说，不稳定的原因和索引有关。不知为什么。

猜测：与索引后的排列位置有关

看一下TONYDENG版主的答复，你的问题就有答案了

SET RELATION指令，是指定當前工作區的數據表指針跟隨INTO參數工作區中的表指針移動，後者動了，本區就動，但本區動，後者不會動。因為你的需要在移動L1記錄指針的時候跟著動L2的，所以在SELECT L2後設置SET RELATION ……INTO L1即可。

其實，你這個UPDATE指令跟REPLACE是完全一樣的，也要這樣設。

我給的那些英文資料，是VFP9的原版幫助文字。

西边的月亮还未落下啊

取消了L1、L2的索引 INDEX ON A3 TAG A1 ，程序得到预期的效果。看来不稳定的原因和索引有关。不知为什么。
但是对程序稍微做一变动，程序还是没有得到预期的效果。
SET CENTURY ON
SET EXACT ON
SET DATE YMD
SET SYSMENU OFF
CLEAR ALL
CLOSE DATABASES
CD D:\BDS
CREATE DBF L1 (A1 C(10), A2 C(10),A3 N(2)) &&建立表
FOR X=1 TO 8
Y=STR(X,1)
APPEND BLANK
REPLACE A1 WITH 'SJA'+Y,A2 WITH 'SJB'+Y,A3 WITH X
ENDFOR
COPY TO L2 FOR A3<6
*INDEX ON A3 TAG A1 &&取消索引
SELECT 0
USE L2
DELETE FOR A3=3 &&稍微做一变动
PACK
*INDEX ON A3 TAG A1 &&取消索引
SELECT L1
SET RELATION TO A3 INTO L2
UPDATE L1 SET L1.A1=L2.A2 WHERE L1.A3=L2.A3
*REPLACE ALL L1.A1 WITH L2.A2 FOR L1.A3=L2.A3 &&此语句在有索引时有效
BROWSE

看来取消索引是不行的，不稳定的原因没有真正解决。

谢谢TonyDeng的关注，根据你的意见修改程序如下：
SET TALK OFF
SET SAFETY OFF
SET CENTURY ON
SET EXACT ON
SET DATE YMD
SET SYSMENU OFF
CLEAR ALL
CLOSE DATABASES
CD D:\BDS
CREATE DBF L1 (A1 C(10), A2 C(10),A3 N(2)) &&建立表
FOR X=1 TO 8
Y=STR(X,1)
APPEND BLANK
REPLACE A1 WITH 'SJA'+Y,A2 WITH 'SJB'+Y,A3 WITH X
ENDFOR
COPY TO L2 FOR A3<6
INDEX ON A3 TAG A1
SELECT 0
USE L2
DELETE FOR A3=3
PACK
INDEX ON A3 TAG A1
*SELECT L1
SET RELATION TO A3 INTO L1
SELECT L1
*UPDATE L1 SET L1.A1=L2.A2 from L2 WHERE L1.A3=L2.A3 &&此命令在9.0可以，8.0出错
UPDATE L1 SET L1.A1=L2.A2 WHERE L1.A3=L2.A3
*REPLACE ALL L1.A1 WITH L2.A2 FOR L1.A3=L2.A3  &&此命令在更改关联方法后也不能达到预想的目的
BROWSE
RETURN

程序不能达到预想的目的。请TonyDeng试试。









*REPLACE ALL L1.A1 WITH L2.A2 FOR L1.A3=L2.A3
BROWSE
AA
RETURN

*SELECT L1   (SELECT L2)
 SET RELATION TO A3 INTO L1
 SELECT L1
 *UPDATE L1 SET L1.A1=L2.A2 from L2 WHERE L1.A3=L2.A3 &&此命令在9.0可以，8.0出错
 UPDATE L1 SET L1.A1=L2.A2 WHERE L1.A3=L2.A3
 *REPLACE ALL L1.A1 WITH L2.A2 FOR L1.A3=L2.A3  &&此命令在更改关联方法后也不能达到预想的目的
 BROWSE