主题：多表关联汇总

 最后的一个单元格的合计？你需要用标记去做。

 一起统计呗，类似

Dim Filter1 As String = "银行帐号 = '" & e.DataRow("银行帐号") & "'"

e.Book.Marks("总计") = DataTables("粮食直补").Compute("Sum(金额)",Filter1) + DataTables("退耕还林").Compute("Sum(金额)",Filter1)

 改成这样

Dim Filter1 As String = "银行帐号= '" & e.DataRow("银行帐号") & "'"

e.Book.Marks("合计") = DataTables("粮食直补").Compute("Sum(金额)",Filter1) + DataTables("退耕还林").Compute("Sum(金额)",Filter1) + DataTables("良种补贴").Compute("Sum(金额)",Filter1)+DataTables("干部报酬").Compute("Sum(金额)",Filter1)+ DataTables("五保补助").Compute("Sum(金额)",Filter1)+ DataTables("医疗救助").Compute("Sum(金额)",Filter1) + DataTables("危房改造").Compute("Sum(金额)",Filter1) + DataTables("征地补偿").Compute("Sum(金额)",Filter1) + DataTables("救助资金").Compute("Sum(金额)",Filter1) + DataTables("草原发放花名册").Compute("Sum(金额)",Filter1) + DataTables("计生事业费").Compute("Sum(金额)",Filter1) + DataTables("低保").Compute("Sum(金额)",Filter1) + DataTables("农机补贴").Compute("Sum(金额)",Filter1) + DataTables("孤儿补助").Compute("Sum(金额)",Filter1) + DataTables("高龄老人补助").Compute("Sum(金额)",Filter1)