主题：多表关联汇总

此主题相关图片如下：nk@i%)jb@t34{fgjjzkzr2c.jpg

Select Case e.Book.TempLate
    Case "分户发放表"

 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)  )
 

End Select

是少了个）