- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82170)
-- 发布时间：2016/3/12 23:52:00
-- [求助]
此主题相关图片如下：qq截图20160312234940.png
我要做EXCEL报表，根据上图显示 怎么自动筛选出同一施工部位 ，日平均温度累计≥1200摄氏度，并且试验日期≤制件日期+120天的数据 然后在EXCEL报表上汇总显示
DataTables("对账单").DataRows.Clear
Tables("同条件主表.同条件明细表").Filter = "施工部位"
日平均温度 = Tables("同条件主表.同条件明细表").Current("日平均温度")
Dim Sum As Double
Sum = Tables("同条件主表.同条件明细表").Compute("Sum(日平均温度)>=1200",试验日期<= #" & Date.制件日期.AddDays(120) & "# and 制件日期= # " & "#")
Output.Show(Sum)
For Each r1 As Row In Tables("同条件主表.同条件明细表")
Dim r2 As Row = Tables("同条件").AddNew
r2("工程名称") = r1("工程名称")
r2("施工部位") = r1("施工部位")
r2("制件日期") = r1("制件日期")
r2("试件编号") = r1("试件编号")
r2("砼强度等级") = r1("砼强度等级")
r2("六时温度") = r1("六时温度")
r2("十四时") = r1("十四时")
r2("二十二时") = r1("二十二时")
r2("日平均温度") = r1("日平均温度")
r2("天数") = r1("天数")
r2("记录人") = r1("记录人")
r2("记录日期") = r1("记录日期")
Next
Tables("同条件主表.同条件明细表").Filter = "记录日期 = \'" & Tables("同条件主表").Current("记录日期") & "\'"
Tables("对账窗体_混凝土订单副表").ResumeRedraw
Dim Book As New XLS.Book(ProjectPath & "Attachments\\同条件.xls")
Dim fl As String = ProjectPath & "Reports\\同条件.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
帮忙把红色字体的代码修改下，实在不知道怎么组织那个代码了，运行错误
-- 发布时间：2016/3/14 13:59:00
--
1、加一列间隔日期，计算间隔
http://www.foxtable.com/help/topics/1452.htm
Dim Sum As Double
Sum = Tables("同条件主表.同条件明细表").Compute("Sum(日平均温度)", "间隔天数 <= 120")
If sum >= 1200 Then
End If
2、具体问题，请上传具体实例测试。
-- 发布时间：2016/3/18 1:01:00
--
谢谢，这久没看帖子 ，非常感谢 我会尝试下的
-- 发布时间：2016/3/18 1:01:00
--
谢谢 ，这久没看帖子 非常感谢了，我会尝试下的
