主题：求解：报价信息表中数据不计算 求纠正！

你原来的代码：

Select Case e.DataCol.name
    Case "单价","数量"
        e.DataRow("总价")=e.DataRow("单价")*e.DataRow("数量")
        e.DataRow("总进货价")=e.DataRow("进货价")*e.DataRow("数量")     
End Select

Case语句有进货价吗？ 不加上，怎么自动更新。

分开两个：

Select Case e.DataCol.name
    Case "单价","数量"
        e.DataRow("总价")=e.DataRow("单价")*e.DataRow("数量")
End Select

Select Case e.DataCol.name
    Case "进货价","数量"
        e.DataRow("总进货价")=e.DataRow("进货价")*e.DataRow("数量")     
End Select

建议看看：

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