主题：请帮助完成?

你的代码是针对已经加载的数据，表B和表C没有加载数据，上述代码当然无效。

不加载数据有不加载数据的处理方法，用SQL语句：

Dim cmd As new SQLCommand
For Each r As Row In Tables("表A").Rows
    cmd.CommandText = "update {表B} Set 计划完成 = " & r("计划完成") & " Where [合同号] = '" & r("合同号") & "'"
    cmd.ExecuteNonQuery
    cmd.CommandText = "update {表C} Set 计划完成 = " & r("计划完成") & " Where [合同号] = '" & r("合同号") & "'"
    cmd.ExecuteNonQuery
Next

http://www.foxtable.com/help/topics/0690.htm

我个人建议你尽量将相关数据统一加载处理，例如你要处理某些合同的数据，那么每个表和这些合同相关的数据最好都加载进来。