主题：报表代码咨询

 发觉excel报表的公式识别有些问题，这个Bug还是没有改掉。

 当有多个公式的时候，再进行直接统计，会出现错乱。所以只能使用标记的方式一个一个写入excel报表了。

 太麻烦，我就不写了。希望狐爸能修改这个Bug。

 代码这样写吧，测试过了。不过对于各年各月的对比表，自己想想办法吧，变的只是日期。

Dim dtb As New DataTableBuilder("工作量完成情况与上年同期对比")
dtb.AddDef("科室", Gettype(String), 32)
dtb.AddDef("项目", Gettype(String), 32)
dtb.AddDef("本年度人次", Gettype(Integer))
dtb.AddDef("上年度人次", Gettype(Integer))
dtb.AddDef("人次_增减数", Gettype(Integer), "本年度人次 -上年度人次", "增减数")
dtb.AddDef("人次_增减率", Gettype(Double), "本年度人次 / 上年度人次", "增减率")
dtb.AddDef("本年度金额", Gettype(Double))
dtb.AddDef("上年度金额", Gettype(Double))
dtb.AddDef("金额_增减数", Gettype(Double),"本年度金额 -上年度金额", "增减数")
dtb.AddDef("金额_增减率", Gettype(Double), "本年度金额 /上年度金额", "增减率")
dtb.Build()
MainTable = Tables("工作量完成情况与上年同期对比")
Tables("工作量完成情况与上年同期对比").AutoSizeCols()

For Each arys As String() In DataTables("工作量").GetUniqueValues("科别 is not null", "科别", "项目")
    Dim ff As String = "科别 = '" & arys(0) & "' And 项目 =  '" & arys(1) & "'"
    Dim ndr As DataRow = DataTables("工作量完成情况与上年同期对比").AddNew
    ndr("科室") = arys(0)
    ndr("项目") = arys(1)
    ndr("上年度人次") = DataTables("工作量").Compute("Sum(人次)", ff & " And  时间 >= #1/1/2011#  And 时间 < #1/1/2012# ")
    ndr("本年度人次") = DataTables("工作量").Compute("Sum(人次)", ff & "  And 时间 >= #1/1/2012#  And 时间 < #1/1/2013# ")
    ndr("上年度金额") = DataTables("工作量").Compute("Sum(金额)", ff & " And  时间 >= #1/1/2011#  And 时间 < #1/1/2012# ")
    ndr("本年度金额") = DataTables("工作量").Compute("Sum(金额)", ff & "  And 时间 > #1/1/2012#  And 时间 < #1/1/2013# ")
Next

DataTables("工作量完成情况与上年同期对比").DataCols("人次_增减率").SetFormat("#0.00%")
DataTables("工作量完成情况与上年同期对比").DataCols("金额_增减率").SetFormat("#0.00%")
    

 其实，楼主，你只需要修改日期范围，就可以统计不同的了。

    ndr("上年度人次") = DataTables("工作量").Compute("Sum(人次)", ff & " And  时间 >= #1/1/2011#  And 时间 < #1/1/2012# ")
    ndr("本年度人次") = DataTables("工作量").Compute("Sum(人次)", ff & "  And 时间 >= #1/1/2012#  And 时间 < #1/1/2013# ")
    ndr("上年度金额") = DataTables("工作量").Compute("Sum(金额)", ff & " And  时间 >= #1/1/2011#  And 时间 < #1/1/2012# ")
    ndr("本年度金额") = DataTables("工作量").Compute("Sum(金额)", ff & "  And 时间 > #1/1/2012#  And 时间 < #1/1/2013# ")

 把窗口设计一章看完，自己捣鼓一下怎么使用窗口。

http://www.foxtable.com/help/topics/0698.htm

 把统计表导出是很轻易的事情。

http://www.foxtable.com/help/topics/0559.htm

 大概是这样。

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

点击浏览该文件:测试3.table

不是统计你设定的这个时间段的 今年 和 去年的数据么？

 看是不是这样

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

点击浏览该文件:测试3.table

 你的意思懂了，但是，你最后生成的报表怎么填入数据？

 比如：我选择了2011至2013，那么生成的列是这样？

 2011人次，2012人次，2013人次，2012人数增减数，2012人数增减率，2013人数增减数，2013人数增减率，2011金额，2012金额，2012金额增减数，2012金额增减率………………？

 要生成这些列的数据？

 再有，如果你选择的是按月份统计2011-01至2013-12，这样是不是要生成几百列？

 看不到图，请正确上传附件。

明白了，下午弄给你。