主题：如何求和？谢谢

估计是他没有定义colnames列名称集合！

............   '前面是他原来的代码
dim colnames as New List(Of String)
For Each cl As Col In CurrentTable.Cols
    colnames.add(cl.Name)
Next  '加入该红色部分代码段
For T As Integer = 8 To ColNames.Count - 1 '逐列设置和填入内容
    If tb.Cols(ColNames(T)).IsNumeric then
        rs2.Cells(cnt,T).Text = tb.Compute("Sum(" & ColNames(T) & ")")
    End If
Next

他的问题为什么我不敢轻易动手：

1、要么没文件；
2、要么只有半截子代码；（一看里面的大部分变量就知道前面还有代码）
3、要么就一下子把整个很长的代码全贴出来，让人眼花缭乱，又苦于无测试文件（狐表增加、插入代码可谓所见即所得，为何不一边写代码以便测试，测试通不过的代码段加以说明再贴出来？），工作忙的时候，自然就是望而生畏了！

学习精神可嘉，大家并不是不赞成，也在不同程度地帮助，只是希望提问方法还需要提高一下。

您没有看看窗口打印？应该不亚于易表的报表设计工具吧？

说正事吧，问题找到了没有，没有的话发文件！

1、不是的，您的表确实不能统计，原因是您的那些津贴列（涉及到金额的所有列）为什么不设置为双精度小属型？全部是字符型，如何统计？
2、您用的是1229版？好像有问题，就像原来有用户提出的无法更改表结构，现在是改为双精度小数型就报错！

逐个修改、压缩项目，重启，终于搞定！

增加合计没必要像您那么麻烦：

 

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

点击浏览该文件:实例一.rar

我没仔细研究您的其他代码，只增加了这几行：

Dim Sum As Double
Sum = Tables("调标表").Compute("Sum(调整前地方津贴补贴)","单位名称 = '" & ck.value & "'")
Rs2.Cells(cnt,8).Text = sum '设置表格内最后一行第九个单元格填入文本,因为前八个合并,所以从第九个算起
Sum = Tables("调标表").Compute("Sum(调整后地方津贴补贴)","单位名称 = '" & ck.value & "'")
Rs2.Cells(cnt,9).Text = sum '设置表格内最后一行第十个单元格填入文本
Sum = Tables("调标表").Compute("Sum(月增资额)","单位名称 = '" & ck.value & "'")
Rs2.Cells(cnt,10).Text = sum '设置表格内最后一行第十一个单元格填入文本
Sum = Tables("调标表").Compute("Sum(补发合计)","单位名称 = '" & ck.value & "'")
Rs2.Cells(cnt,12).Text = sum '设置表格内最后一行第十三个单元格填入文本

您自己可以根据您原来的代码调整并进行简化！

      楼主的报表是经过筛选了的，必须指定sum（）的合计条件！

楼主这样的变量定义完全是绕弯子：

Dim ck As WinForm.ComBoBox = e.Form.Controls("输入单位名称")

直接定义为：

Dim ck As string = e.Form.Controls("输入单位名称").value  ’因为e.Form.Controls("输入单位名称")的当前值为字符型

这样一来其他所有地方直接引用ck 即可，没必要再引用为 ck.value ，甚至引用的地方少的话可以直接引用e.Form.Controls("输入单位名称").value