主题：如何根据两个表数据进行条件求和后并相除？

将一楼的文件重新上传一下，我这里无法下载，不能按照文件所需帮助您！

原来如此，先谢谢

这里可以简写：

Dim Sum1 As Double

Dim Sum2 As Double

Dim Sum3 As Double

 

等效于：

Dim Sum1,Sum2,Sum3 As Double

 

程版主真是热心人，很感激，如有空再帮我，上传附件，帮设置下，用表、查询，还是用其他办

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

点击浏览该文件:吨料耗用.zip

法都行。

没明白您啥意思？

Dim Sum1,Sum2,Sum3 As Double

Sum1 = Tables("成本费用").Compute("Sum(金额)", "费用大项 = '制造费用' And 日期>=#2010-01-01# And 日期<#2011-01-01#")

Sum2 = Tables("投入产出").Compute("Sum(数据)", "项目 = '1102投入总用量(吨)' And 日期>=#2010-01-01# And 日期<#2011-01-01#")

Sum3=Sum1/Sum2

Output.Show(Sum3)

怎么将结果显示出在一个表或标签

显示在标签相对简单：

 

Dim Sum1,Sum2 As Double

Sum1 = Tables("成本费用").Compute("Sum(金额)", "费用大项 = '制造费用' And 日期>=#2010-01-01# And 日期<#2011-01-01#")

Sum2 = Tables("投入产出").Compute("Sum(数据)", "项目 = '1102投入总用量(吨)' And 日期>=#2010-01-01# And 日期<#2011-01-01#")

Forms（"窗口1"）.Controls("label1").text = (Sum1/Sum2).text

出现错误，见图
此主题相关图片如下：2011-09-18 22-14-23.png

去掉最后一个.text： Dim Sum1,Sum2 As Double Sum1 = Tables("成本费用").Compute("Sum(金额)", "费用大项 = '制造费用' And 日期>=#2010-01-01# And 日期<#2011-01-01#") Sum2 = Tables("投入产出").Compute("Sum(数据)", "项目 = '1102投入总用量(吨)' And 日期>=#2010-01-01# And 日期<#2011-01-01#") Forms（"窗口1"）.Controls("label1").text = (Sum1/Sum2)

再谢谢程版主了