应该是这段代码的问题: 利润进度测算表 中 产品类型 没有内容!
'求季度成本
dr2=datatables("利润进度测算").datarows(2)
For each dc as datacol in datatables("销售进度测算").datacols
dcn=dc.name
If dc.IsNumeric Then
For each dr in datatables("成本分摊").datarows
x=DataTables("销售进度测算").Compute("Sum(" & dcn & ")","[项目]='销售面积'and [产品类型]='" & dr("产品类型") & "' and 楼盘='" & vars("楼盘") & "'") '求产品类型面积
y=DataTables("成本分摊").Compute("Sum(单位成本)","[产品类型]='" & dr("产品类型") & "'") '求单位成本
dr2(dcn)=x*y+z
z=x*y
next
else
dr2("项目")="二 营业成本"
End If
next