USE 表1
SCAN
     upda 表2 set tg=表1.tg where 表2.xm=表1.xm .and.表2.rq=表1.rq
ENDCASE
6.0都能运行

【名称】
    UPDATE命令
【类别】
    命令
【描述】
    用其他表的数据更新当前选定工作区中打开的表。包含此命令是为了提供向后兼容性。可用
【原形】
    UPDATE ON FieldName1 FROM FileName
    REPLACE FieldName2 WITH eExpression1
    [, FieldName3 WITH eExpression2 ...]
    [RANDOM]
【参数】
    ON FieldName1
    指定控件更新的公共字段。若要使用 UPDATE命令，当前表和作为更新数据来源的表必须有公共字段，当前表必须按公共字段的升序进行索引或排列。如果数据来源表也已经排序或索引，则可以提高更新速度。
    FROM FileName
    指定在别的工作区打开的表名，该表中包含更新数据。在当前工作区中打开的表将被 FileName指定的表中的数据更新。
    REPLACE FieldName2 WITH eExpression1 ...
    用一个更新表达式 (eExpression1)替换当前选定表的字段(FieldName2)。可以包含一个字段列表（FieldName2，FieldName3等等）和相关的更新表达式（eExpression1，eExpression2 等等）来更新当前表中的多个字段。更新表达式通常是更新表中的字段名。也可以是一般的表达式或常量。注意：对于当前表中的每一个记录，可能在更新表中有多个匹配记录。如果有多个匹配记录，那么当前表中的记录要用每一个匹配记录更新。如果当前表中包含有多个匹配字段记录，则只更新第一个匹配记录。
    RANDOM
    如果更新表没有按升序索引或排序，就必须包含 RANDOM关键字。
【返回值】
    无
【示例】
    无

  最后用这个测试成功

sele 1
  use 表2
  inde on xm+rq to xmrq
 sele 1
  inde on xm+rq to mxmrq
do whil not eof()
  mxm=xm
  mrq=rq
  mtg=tg
 sele 2
  seek mxm+mrq
  if not eof()
   repl tg with mtg
  endif
  sele 1
  skip
 enddo
    试试吧，一定能解决！


   

办法多多啊