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

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

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

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

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

如果要修改代码，可以考虑将下面的代码改为：

Dim r3 As Row = Tables("实体材料分析").AddNew
r3("序号1") = e.Datarow("序号1")

我觉得实体材料分析表的DataColChanged事件代码中，下面几行同样有问题的：

MainTable.Current("rgdj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'R'"),3)
MainTable.Current("cldj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'C'"),3)
MainTable.Current("jxdj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'J'"),3)

你设置的选定行的父行，而不是修改行的父行，我前面说过，选定行和修改行，有时在粘贴的时候不会是同一行，这样当你选定第一行进行粘贴的时候，永远只有第一行进行计算，因为MainTable.Current表示的就是选定行。

合理的代码应该是：

Dim pr As DataRow  = e.DataRow.GetParentRow("实体预算书")
If pr Isnot Nothing Then
     pr("rgdj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'R'"),3)
     pr("cldj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'C'"),3)
     pr("jxdj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'J'"),3)
End If

同样很多这样的代码也是不行的：

pr("jxdj") = Math.Round(Tables("实体预算书.实体材料分析").compute("sum(金额)","[RCJ] = 'J'"),3)

理由你可以自己想一下，实体与算数选定第一行的时候，Tables("实体预算书.实体材料分析")表示该行在实体材料分析中对应的行，也就是永远计算的是第一行，你应该改一下：

pr("jxdj") = Math.Round(DataTables("实体材料分析").compute("sum(金额)","[RCJ] = 'J'" & " And [序号1] = " & pr("序号1")),3)

前面陆陆续续提到的问题，其实都是同一个问题，老兄也应该尝试自己分析一下啊，这样进步才快啊，自己找出来的，印象才深刻。