型号列为字符型,代码应该是:
Select Case e.datacol.name Case "型号" e.datarow("直接成本")=DataTables("成本").compute("sum(小计金额)","型号 = '" & e.datarow("型号") & "'") e.datarow("制造费用")=DataTables("成本").compute("sum(制造费用分摊)","型号 = '" & e.datarow("型号") & "'") e.datarow("管理费用")=DataTables("成本").compute("sum(管理费用分摊)","型号 = '" & e.datarow("型号") & "'") e.datarow("财务费用")=DataTables("成本").compute("sum(财务费用分摊)","型号 = '" & e.datarow("型号") & "'") e.datarow("销量累计")=DataTables("成本").compute("sum(销量)","型号 = '" & e.datarow("型号") & "'") e.DataRow("单位成本")=( e.datarow("直接成本")+e.datarow("制造费用")+e.datarow("管理费用")+e.datarow("财务费用"))/e.datarow("销量累计") End Select
|