这个不行吗?EXCEL报表我没怎么研究.....但是SUM这个括号里的内容应该是出错的原因..
For c As Integer = 5 To dt.Cols.Count -2 '
Sheet(r1+1, c).Value = dt.Compute("Sum(
dt.Cols(c).Name)")
Sheet(r1+1, c).Style= Style
Next
Compute
根据条件统计表中数据。
语法：
Compute(Expression, Filter)
Expression: 要计算的表达式
Filter： 可选参数，用于设置计算条件
计算产品PD01的销售数量：
Dim
Total As Long
Total = DataTables("订单").Compute("Sum(数量)", "产品 = 'PD01'")
Output.Show(Total)
-------------------------------------------------------------------------------
通过Name属性和Index属性，我们可以获得指定名称列的位置，也可以获得指定位置列的名称：
例如：
Output.Show(
"金额列的位置是:" & Tables("订单").Cols("金额").Index)
Output.Show("第三列的名称是:" & Tables("订单").Cols(2).Name)
[此贴子已经被作者于2009-4-27 21:55:55编辑过]
加好友 
发短信
菜鸟中的老鸟
Post By：2009/4/27 21:29:00 [显示全部帖子]
