楼盘选择“绍兴天下”时，表“利润进度测算”中的营业成本合计数和表“利润测算”中的营业成本数为什么不一样？

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

点击浏览该文件:房产公司.table

以下是引用lihe60在2009-8-10 17:15:00的发言：

楼盘选择“绍兴天下”时，表“利润进度测算”中的营业成本合计数和表“利润测算”中的营业成本数为什么不一样？

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

点击浏览该文件:房产公司.table

 你这个表结构看不懂.在利润测算中看不到绍兴天下的楼盘.

应该是这段代码的问题:    利润进度测算表 中 产品类型 没有内容!

\'求季度成本
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

不好意思，利润测算表叫销售成本。
请问有解么？

利润进度测算表中的窗口：利润进度测算 里的确定按钮中的 \'求季度成本。。。这段代码改成：

‘先增加变量：m（面积）、c（成本）
dim m,c,x,y as double

\'求季度成本
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 楼盘=\'" & vars("楼盘") & "\'") \'求产品类型面积
            c=DataTables("成本测算").Compute("Sum(成本金额)","[楼盘]=\'" & Forms("利润进度测算").Controls("ComboBox1").text & "\'")
            m=DataTables("销售进度测算").Compute("Sum(合计)","[项目]=\'销售面积\'and [楼盘]=\'" & Forms("利润进度测算").Controls("ComboBox1").text & "\'")
            y=c/m
            dr2(dcn)=x*y
        next       
    else
        dr2("项目")="二  营业成本"
    End If
next

结果都是 98,998.00 了。