主题：复制4个 定额编号，粘贴 单价计算错误。

呵呵，这个和foxtable无关的，是你地代码问题，例如你在DataColChanged中的一行代码：

Dim r3 As Row = Tables("实体预算书.实体材料分析").AddNew

针对的就是实体预算书当前选定行的的关联子表，而不是修改的行，在粘贴的时候，选定行和修改行是不一致的。

要么修改代码，要么禁止复制粘贴。