此主题相关图片如下：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()
帮忙把红色字体的代码修改下，实在不知道怎么组织那个代码了，运行错误
加好友 
发短信
Post By：2016/3/12 23:52:00 [显示全部帖子]
Post By：2016/3/18 1:01:00 [显示全部帖子]
Post By：2016/3/18 1:01:00 [显示全部帖子]
