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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工程1.table

此主题相关图片如下：2.gif


录像时隐藏了 项目名称 列

定额编号 分别输入1、2、3、4 时，单价计算正确。（工程数量 任意输入数值）

把4个 定额编号 同时选中，复制、粘贴 ，单价计算错误。

第1个项目 单价 成为4个项目的和，后3个项目 单价 为0了。

是不是狐表不支持这样的复制、粘贴。

劳驾高手们给看一下，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工程1.table

smileboy 版主，在我的机器中，与1楼的图示相同。

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

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

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

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

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

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

老大，这样还有问题。

第1个项目 单价 正确，后3个项目追加正确，但单价没有计算。

请指点，还应怎样改动。谢谢！

这个功能和报表的行高自动调整，对我来说很重要，请老大再看看。

我觉得实体材料分析表的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

看来这是个难缠的问题。上面的改动结果是：第1个项目 单价 正确，后3个项目追加正确，但单价错误。3个项目的单价都是第1个项目的单价。

老大，看一下还需要怎样改。谢谢！

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

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)

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